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は じ め に 


みな さん , 楽し く プ ログ ラミ ング し て ます か ?7 

私 は , プロ グラ ミン グ を 基本 的 に し ん どい 作業 だ と 感じ て いる の で , 自分 な り に 何 か 楽 
し め る 要素 を も て な けれ ば , 上 達 $ も し な いし , 長続き も し な いと 思っ て いま す 。 

プロ グラ ミン グ が コン ピュ ー タ サイ エン ス の た め の も の だ っ た 時 代 は , 美しい アル ゴリ 
ズム や , イカ し た アル ゴリ ズム を 作る こと が 楽し み だ っ た の か も 知れ ませ ん が , すでに そ 
うし た 時 代 は 過去 の も の と な っ て し まい まし た 。 

今や プロ グラ ミン グ は , 日 曜 大 工 や 手芸 ざら い 身 近 な 存在 に な りつ つ あ り ま す 。C 言 語 
開発 環境 を 入手 する の は , 墨 意 や リリ アン を 入手 する より 簡単 で すし , プロ グラ ミン グ が 
学校 教育 の 中 に も 組み 入れ られ る よう に な り ま し た 。 し か し , 多く の 人 に と っ て , 難し い 
こと だ っ た り , 嫌 な 勉強 の 1 つ だ っ た り , 食べ て いく た め の つ らい 仕事 だ っ た りす る の が , 
ゲロ グラ ミウラ グ の 外 本 で し よう 。 

本 当 は , も っ と 楽し め る は ず な ん で すけ ど ね 。 

そこ で , 本 書 で は , みな さん が プロ グラ ミン グ を 楽し むために , WonderSwan で 動く ゲ 
ー ム を 作れ た ら 楽 し いん じゃ な い ? と いう 方 向 性 を 提示 し ます 。 自分 の 作っ た プロ グラ 
ム を WonderSwan に 入れ て 持ち 運べ れ ば , さま ざま な 場所 で 見 せ び ら か すこ と が で きま す 。 
学校 で , 職場 で , 公園 で , 呑み 屋 で , カワ イイ あの コ も イチ コロ で す 。 も し く は 「 踊 る 阿 
徐 に 見 る 阿呆 , 同じ 阿呆 な ら 踊 ら に ゃ ソン ソン 」 の 精神 で す 。 

本 書 は , プロ グラ ミン グ が 楽し く な い 人 や , も っ と プロ グラ ミン グ を 楽し みた い 人 の た 
め に , 初心 者 向け の 味付け に し て み ま し た 。 で すか ら , すでに プロ グラ ミン グ が 楽し く て 
仕方 な い 一 部 の 人 た ち に と っ て は , 少し も の 足り な いか も 知れ ませ ん 。 そ うし た 人 た ち に 
は , プロ グラ ミン グ を 布教 する た め の 書 籍 と し て 活用 し て いた だ ける と 幸い で す 。 
| 百 開 は 一 見 に し か ず ] で すか ら , あと は 中 身 を 見 て 考え て も ら う こと に し まし ょ う 。 

本 書 が あな た の プロ グラ ミン グラ イフ に 少し で も 貢献 で きる こと を 願っ て 。 


この 場 を 借り て , いろ ん な 人 に 感謝 の 意 を 表し た いと 思い ます 。 

本 書 は , ソフ トバ ンク パブ リッ シン グ 第 1 書籍 編集 部 杉山 聡 氏 と の 共同 作業 の 成果 で す 。 
我々 2 人 で な いと で き な い 仕事 に な っ た と , ちょ っ と だ け 自 負 し て いま す 。 

私 と 杉山 氏 を ブッ キン グ し て くだ さっ た 同社 C MAGAZINE 編 集 部 有馬 元 剛 氏 , スケ ジュ 
ー ル の 面 で 骨 を 折っ て くだ さっ た 同 編集 部 白川 潤一 氏 に も , 大 変 お 世話 に な り ま し た 。 
この よう な ネタ を 提供 し て くだ さっ た , WonderWitch 発 売 元 の (株 ) バン ダイ , 開発 元 の 
( 有 ) キュ ー ト の 両社 に も 感謝 し て いま す 。 イ ンタ ビュ ー に 応じ て くだ さっ た り , いろ いろ 
と お 手 を わ ず ら わ せ まし た キュ ー ト の 佐藤 治 氏 , 園田 修司 氏 。 あり が と う ご ざ いま し た 。 
私 が 本 書 の 執筆 を 行う こと で ワリ を くっ ちゃ っ た 人 々 , 川端 毅 氏 , 松浦 徹 氏 , 松本 勝 氏 , 
望月 勇 志 氏 , 山田 雅昭 氏 , 服部 由美 女史 , ご めん な さい 。 


2001 年 1 月 4 日 
長久 勝 


ワッ ダメ ワッ 
ルリ 2 ツボ ミッ グ ワン ダー ウィ ッッ チ で て ゲー ム * 作 ろう ! 


眉 め 民 ーー ドド 8 Bccse 8 きき edi8883 に RS の と 32 を 2337 く 32600e2183Gceh ii 


上 1* 我 が 家 に 魔女 が や っ て きた 2 ' 


[ フ ワン ダー ウィ ッ チ の 入手 2 は SO VO3HDPSSSDIRN TLSS3PSBes ラ 
価 ワン ダー ウィ ッ チ を イン ス トー ル し て みよ う - WO 
Magical CD-ROM か ら の イン スト ー ル ーーー 

最新 の 開発 環境 アップデート ……… ・ 
設定 ファ イル の 修正 ……… パ ーーー 
テキ スト エディ タ の 準備 …………… 
作業 用 ディ レク トリ の 準備 … 
イン スト ー ル の 確認 … 
全 ワン ダー ウィ ッ チ を 使っ て みよ う 
人 @ Hello,World. 
一 般 的 な 「Hello,World.」 
ワン ダー ウィ ッ チ で の 「Hello,World.」 
今 FreyaOS を アッ プ グ レー ド す る 
FreyaOS の バー ジョ ン を 確認 する 
TransMagic.exe で FrayaOS を アッ プ グ レー ド す る 


第 ② 章 な ぜ な に ワン ダー ウィ ッ チ 画面 編 
に ワン ダース ワン の 画面 構成 12CF を TOPIC ae3Pit itsos 時 
スプ ライ ト に つい て en ーー 
】 スプ ライ ト を 表示 し て みる 2095 に SSRGIES2SNSCSS 
画像 デー タ の 作成 ……- Pe 
スプ ライ ト を 表示 する プロ グラ ム 
表示 し た スプ ライ ト を 動か す プ ログ ラム 
島 背景 を 表示 し て みる eo 2 
画像 デー タ の 作成 …ーー ド ーー 
背景 を 表示 する プロ グラ ム …………… 
背景 を スク ロー ル す る プロ グラ ム 
等 パレット を 利用 する ーー 
透過 色 を 利用 し た プロ グラ ム 


iv 電 目 次 


キャ ラ タ タ テー ジル の 夫 き さき eo 46 

坦 文字 を 表示 し て みる RRBUHECKITTPPCRUCSPIRIPTYCHPHPEHHPF に HRCZ7PF ロ けけ キト 46 
補 率 者 本寺 お る ダ 自 グラ た rr 5028 6 
画面 の 一 部 に 文字 を 表示 する プロ グラ ム ーー 49 

恵 型 沙 フ ォ ン ト の 特徴 PPPOERIPPR 53 as 海 | 

な ぜ な に ワン ダー ウィ ッ チ 音 編 -53 
し ワン ダー スワ ン の 音源 構成 RIRGCSSORREIRDTI2Se3 SS 5363IRRR3 枯 CaWe PC 54 
二 商 沈 呈 らし る の 生 55 
チャ ン ネ ル 1 か ら 音 を 鳴ら す プ ログ ラム ー…… パ | ボド 55 
複数 の チャ ン ネ ル か ら 音 を 鳴ら す プ ログ ラム ・ 60 

@ ノ イス ズ 音 を 鳴ら し て ある に oo | 
ノイ ス 音 を 噂 ら す プロ グラ ム …… Getdoey 92 

人 スウ ィ ー プ させ て 鳴ら し て みる …93 
スウ ィ ー プ させ て 音 を 鳴ら す プ ログ ラム … … 63 

人 @ 音声 を 鳴ら し て みる …………… 語 2 
音声 サン プリ ング デー タ の 準備 66 
音声 を 鳴ら す プ ログ ラム …… ・ 66 

人 @ 音楽 を 鳴ら し て みる 0 |…ー . . フ 0 
昌也 人 泊 作 成 umre -Z0 
曲 デ ー タ を 鳴ら す プ ログ ラム Z1 

な ぜ な に ワン タダ ー ウ ィ ッ チ シス テム 編 928 
) キー 入力 : RIRERPRSYHTTPHEEYHGHSKTEYICHHUITCTCHTYYKYPTTYYYTVTPTYYITEEYPCLLPREP て PE Z6 
ボタ ン の 状態 を 画面 に 表示 する プロ グラ ム …………… ド mm zo 
ボタ ン で スプ ライ ト と 背景 を 操作 する プロ グラ ム ERP Zo 

人 ゆき ファ イル シス テム に oo 8 上 BI の 
rom0 領 域 に ある テキ スト ファ イル を 表示 する プロ グラ ム 83 
「Om0 領 域 に ある テキ スト ファ イル を 改変 / 表 示す る プロ グラ ム ………… 84 
2048 バ イト より 犬 き な ファ イル を 作成 する ドド ドド ドド ーーーー 86 

( HHIE]U 馬 SEOCRRETIEPPTRPPFF 和 HH 88 
mmap() を 利用 し て テキ スト ファ イル を 表示 する プロ グラ ム 89 

秦 リソース AKA27RNUERXODY27AG2HS2RHGRRVRRIRRYEGSS2YERES ISe2G2HBPZYSHSCAIRCSHRE の 2 0 の ] 
リソー ス デ ー タ と し て 埋め 込ま れ た 画像 を 表示 する プロ グラ ム ……… 91 
画像 以 2 の りり の ラス シタ iii o4 

目 次 を V 


人 @ メモ リ の 使い 方 "ーー ーー 95 
命 パ バッ チ フ ァイル に mm ゴ 6323RHStS32SHRHDRCCSG HER が iK o6 
サン プル プロ グラ ム を すべ て コン パイ ル す る バッ チ フ ァイル ………… ド ーー 96 
引数 の 参照 や 条件 分 岐 を 行う バッ チ フ ァイル … imimninninnh の の 


し す 」:| て - 臣 GOEORHRRHHHRHRERHIHORHOMUHOMOUOO 30282 SRA32CK oO8 
サン プル プロ グラ ム を すべ て コン パイ ル す る makefile ……… mr 99 
デフ ォ ル トト 以外 の 処理 Sr PR ・100 

催 Turbo CC oi BBH5nHRHCCGRB2RSI 上 語 Ba 

第 語 章 と に か く 作 っ て みよ う ーー 0 

ああ の だ …。 106 
線 を 描画 する プロ グラ ム を 作る ………ーー…ー … 06 
あみ だ くじ の ブログ ラム を 作る …… ……… ・ mmm 110 

@ じゃ ん けん …………ー 了 es 3 凍 HiP 
じゃ ん けん する プロ グラ ム を 作る … HHRHHUHUKDHAHAOHOYOUDD 116 

@ みん な で 親指 を 立て る 遊び ……… on ! 122 
みん な で 親指 を 立て る 遊び の プロ グラ ム を 作る … ・ … 122 

人 @ 反射 ゲー ム HRPHESRIRRBSRuEEPEIRGGRRACRRSSRHEURSc2eHEAOTESSRedtR338mt 了 31 
反射 ゲー ム の プロ グラ ム を 作る …… に oo 131 

備 絶対 音感 生生:PfFPEEIRPTPECTEPIAITEIT の HPTEOTDTCPUHETLTLTTPITDCTTRICPOTY 40 
音 を 当て る ゲー ム の プロ グラ ム を 作る …… 40 

第 ⑳ 草 シュ ー テ ィング ゲー ー ム を 作っ て みよ う 人 

但 画面 構成 か ら の 設計 ZERORG2KNRK3EHOICDAE CGUZRGWGYRWHRSG9269sE2g … 148 
自 機 と 敵 機 と 弾 の 設計 ………… ド ーー BS ーー 149 
背景 の 設計 … の oe 時 ia の 

画面 を 動か す CCCHR 了 YY HCV 6 8 150 

@ 画面 上 の キャ ラク タ を 管理 する - uo 11 
衝突 判定 額 壌 ee 昌和 
移動 アル ゴリ ズム と 関数 へ の ポイ ンタ … ws 230 152 
と DE 則 半 PCPSCTTPRRERPPTPHPTPP 和 HH 2 153 

人 実装 し て みあ る … ionrmrre 2 20 155 
create_obO) ee ue 5 

例 点数 を 表示 し た い EPR RCCREYIGCUEEPICYPYTPICPI RCIT2PCOKT BR ssse 1Z4 
点数 の 処理 …… バ ハ ゆーー RY 時 本 174 


vi > 趣 目 次 


縦 置 用 フォ ント デー タ の 作成 
全 も っ と ゲー ム っ ぽく する ERE34DRGESSCZsYesit2FSSNS25s28Ssfcses33328ShC3SGg 


アド ベ ペ ベンチャー ゲー ム を 作っ て みよ う 


人 @ 画面 構成 か ら 設計 


。 ゲー ム の 行 を 下 拉 プロ グラ ム す る RRB 由 


人 @ ei 

0) スク リ / ト の 設計 LSEeeansseseeeseoeeeo< 

但 スク リプ ト の 実行 系 を 作る 

今 変数 と 演算 を 導入 する - 
calculate() HCS 


供 も っ と 改良 し て みよ まう ……… 


クイ ズ ゲ ー ム を 作っ て みよ う 


信 クイ ス の 問題 を 確保 する 

クイ ズ ゲ ー ム 「 ご た く 」 の 

[る ) まず は 下ごしらえ 間 生 FFPPFFTPFF ド PT キー トキ 
「 ご た く 」 問題 ファ イル の デー タフ ォ ー マ ッ ト 
問題 ファ イル を 選択 で きる よう に する - 

旬 ご た く ワ ンダ ー ウ ィ ッ チ 
9gotad.C の ポイ ント 

使 も っ と 「 ご た く 」 に 


ツー ル を 作っ て みよ う 


(。) WondonWiehNEO 前 
ーー 人 2 村 に 

今 SPICE-MML の 解析 - 
MIDITSPICE-MML デ ー タ 変換 ツー ル DSMC を 使っ て みる 
SPICE-MML と WonderWitch-MML の 文法 を 比較 する - 

堪 SImCChV.eXG Si 人 7 は ISPCNGGI2 和 さき な | 

[2】 SsimccnVv.exe を 改良 する 32 IROBIZGSRSC は GBRAIS は SGS は 

旬 も っ と ツー ル が あれ ば ーー の PT ta: 


第 MOO き ワン ダー スワ ンカ ラー に 対応 し て みよ う 


夫 カラ ー ラ イブ ラリ を 手 に 入れ る SG な さら 82 
全 カラ ー ラ イブ ラリ の マニ ュ ア ル を 読む 3 


投 ガ ラーラ イブ ラリ の 牧 隊 人 


W ゆ 4 色 カ ラー モー ド を 使っ で みる ーー ビー 
test1.c を カラ ー 化 し た プロ グラ ム 8 
代 16 色 カラ ー モ ー ド を 使っ て みる 
16 色 カラ ー の リソー ス デ ー タ を 準備 する 
16 色 カラ ー の リソー ス デ ー タ を 表示 する プロ グラ ム 


島 ワン ダー ウィ ッ チ 開発 者 に 聞く 
「21 世 紀 の ホ ビー プロ グラ ミン グ 」 


今 付録 CD-ROM に つい て 


INDEX 5 


206 


2Z6 


ト う 
NN 
nA 


みな さん は , お 店 で ゲー ム 機 用 の ソフ トウ ェ ア 開 発 キ ッ ト が 売ら れ て いる の を 見 た 
こと が あり ます か ? 普通 の お 店 で は , 一 般 向け に . そう し た も の を 売っ て いま せん 。 
な ぜ な ら , 一 般 向 け ゲ ー ム 機 用 ソフ トウ ェ ア 開 発 キ ッ ト と いう も の は , 普通 , 発売 さ 
れ な いか ら で す 。 過去 を 振り 返っ て みて も , PC エン ジン 用 の も の と , PlayStation 用 の 
も の が 存在 し た だ け で , その 他 の 多く の ゲー ム 機 用 の も の は 発売 され て いま せん 。 市 
販 の ゲー ム 機 で , 自作 の ゲー ム を 動作 させ る こと は , 長い 間 , 多く の 人 に と っ て 叶わ 
な い 夢 だ っ た の で す 。 

また 。 ブ プロ グラ ミン グ を 勉 問 し よう と いう 人 々 の 目的 の 1 つ に | 自分 で ゲー ム を 作っ 
て みた い | と いう こと が あげ られ ます が , 勉強 する うち に , ゲー ム プ ログ ラミ ング の 
特殊 性 や ., ゲー ム 機 用 の ソフ トウ ェ ア を 開発 する 道具 が な いこ と を 知っ て , 断念 し た 
人 も 少な く な いで し ょ う 。 

し か し , 幸運 な こと に , みな さん は WonderWitch (ワン ダー ウィ ッ チ ナチ ) を 手 に する 
機会 に ま れ ま し た 。 せ っ か く WonderWitch を 使え を る の で すか ら , 本 物 の ゲー ム 機 で 
動作 する ソフ トウ ェ ア を 作っ て み ま し ょ う 。 


ワン ダー ウィ ッ チ 内 容 物 一 式 


ワン ダー ウィ ッ チ の 入手 


WonderWitch は , 携帯 ゲー ム 機 WonderSwan (リン ダー スワ ン ) 用 の プロ グラ ム を 開 
発する た め の 道 具 一 式 を パッ ケー ジ に し た も の で , WonderSwan の 発売 元 で ある バン ダ 
イ か ら , 一 般 向け に 販売 きれ て いま す 。 2000 年 12 月 の 時 点 で , Table 1.1 に あげ た 方 法 
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で 購入 する こ 


Table 1-1 


と が で きま す 。 ま だ 持っ て いな い 人 は 参考 に し て くだ さい 。 


ワン ダー ウィ ッ チ の 入手 


ョ ーー シー 
ジン リピ So 富 の ド 


イン ター ネッ ト | http://shops1 . channe1 .or.]p/ 


で 購入 商品 検索 が で きる の で 、「 ワ ンダ ー ウ ィ ッ チ 」 で 検索 する と 商品 情報 を 
る こと が で きま す 
ぷら っ と ホー ム ( 株 ) 秋葉 原 店 
http: //on1ine.p1athome . Co.]p/ 
〒101-0021 千代 田 区 外 神田 1-11-4 ミツ ワリ ビル 8F/4F/5F 
TEL:03-3251-7611 FAX:03-3251-7000 
定休 日 無し 営業 時 間 10:30-19:30 
お 店 で 購入 ふぁ あす と ・ ば っ く 


http: //www.Ffastbuck .ne .]p/ 
〒556-0005 大 阪 市 浪速 区 日 本 橋 5-12-7 赤松 ビル 4F 
TEL: 06-6630-4880 FAX:06-6630-4881 
営業 時 間 平日 12:00 - 20:00 
土日 祝日 12:00 - 19:00 
火曜 日 定休 
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Windows98/Me/NT4/2000 の どれ か が 載っ て いて , CD-ROM ド ライ ブ と シリ アル ポー 
ト が 付い て いる 普通 の PC (AT 互換 機 ) と , WonderSwan が あれ ば , WonderWitch を 使 
うこ と が で きま す (Windows 以 外 の さま ざま な 0O8, AT 互換 機 以 外 の ハー ドウ ェ ア と の 
組み 合わ せ で も , 使用 者 の 技能 に 応じ て 利用 可能 で す )。 

本 書 で は , マニ ュ ア ル に 基づい て , Windows 上 で の 開発 環境 を 構築 する と ころ か ら 
始め まし ょ う 。 Magical Book (取扱 説明 書 ) の 第 9 章 「 チ ュー トリ アル | を 参考 に , 開 
発 環境 を 構築 し ます 。WonderWitch に は , 2 つの C コ ン パ イラ が 付属 し て いま す が , 本 
書 で は , イン スト ー ル が 簡単 な LSI C-86 for WonderWitch (以下 , LSI-C) を 使用 する 
た め の 環 境 設 定 を 行い ます 。 
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環境 設定 の 作業 項目 


Magical CD-ROM か ら の 
イン スト ー ル 


テキ スト エディ タ の 準備 ) 
作業 用 ディ レク トリ の 準備 ) 


イン スト ー ル の 確認 | 


渦 : Magical CD-ROM か ら の イン スト ー ル 


まず , Magical CD-ROM に 収録 され て いる WWitch.exe を 実行 し ます 。Windows が デフ 
ォ ル ト 設 定 の まま だ と 拡張 子 .exe が 表示 され ませ ん の で , エク スプ ロー ラ や フォ ル ダ 
表示 ウィ ンド ウ の [表示 ] 一 [フォルダ オプション] で , ファ イル の 拡張 子 を 表示 す 


る よう に 設定 し て くだ さい 。 


全 当 度 当 WWitch.exe の 場所 


「 Magical_cdrom100 (1) 
ー デ | | 
Turboc WWwitch dirtree.txt 
WWwitch.exe 
所 ゲー ジョ コジ 
玩 新 日 時 
00/06/21 15.4? 
サイ ズ : 3547KB 
績 性 : 読み 取り 専用 
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WWitchzp 


する と , イン スト ー ル を 行う 場所 の 指定 を 求め られ ます 。 


邊 記 還 WWitch.exe の 実行 


Wonderwilch 開 発 キ ッ ト イン スト ー ル 先 


Kiiwwidh ーー っ 参照 @).、| 
ECI | 


特に 必要 を 感じ な い 場 合 は , デフ ォ ル ト の 位置 “C:\\WWitch" で よい で し ょ う 。 


7 倫 最新 の 開発 環境 アップデート 


次 に , WonderWitch サ ポー ト Web サ イト (http:/wonderwitch.qute.co.jp/) か ら , 最 
新 の 開発 環境 へ の アッ プ デ ー ト ファ イル を ダウ ン ロ ー ド し ます 。 自己 解凍 形式 の ファ 
イル が , WWUpdateYYYY27A7D の .exe (7 学年 ,。 ZZ: 月 , の : 日 , 2001 年 3 月 1 日 時 点 で 
の 最新 版 は WWUpdate20010207.exe) と し て 入手 で きま す 。 


is 肖 WonderWitch サ ポー ト Web サ イト 


Co 
W 本 


ワ ソ ター ウィ ッ テ ダテ 


サポ ー ト Web サイ ト 


What's New 


SC 用 カラ ー ラ イブ ラリ キッ ト 正 式 リリ ー ス & 無償 
657Not の カラ ー 表 示 バ パー ジョ ン も 含ま れ て いま す ? 
2000.12.9 ワン ダー スワ ンカ ラー 用 カラ ー ラ イブ ラリ の 低 聞 8 テスト ぞ 開 始 し まし た 
SS て し まし お 


2000.11.30 上 PDF フ ァイル お よび 正 庄 表 を 掲載 し まし た 
2000 11.22 プロ グラ ミン 
2000.11.22 
200011.19 
2000.11.9 ミン ケ 2 1 
2000105 80 番 ポー ト か ら の 、 ユー ザ 登 録 ・ ダウンロード が 可能 こ な り まし た 
2000.10.2 Windows Me お 認 さ れ ま し た 
= 予定 を 発表 し まし た 


| | [ゆー も F 
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この 作業 は , ユー ザ 登 録 を 済ま せ て いな いと 行え ませ ん の で , 最初 に WonderWitch 
サポ ー ト Web サ イト に アク セス し た と き に 登録 を 行っ て くだ さい 。 登録 時 に は 製品 の 
シリ アル 番号 の 入力 が 求め られ ます 。 

入手 し た 自己 解凍 形式 アッ プ デ ー ト ファ イル を 実行 する と ダイ アロ グ が 表示 され る 
の で , 各自 の 環境 に 合わ せ て 開発 環境 を イン スト ー ル し た 場所 を 入力 し ます 。 
自己 解凍 形式 アッ プ デ ー ト ファ イル の 実行 


デフ ォ ル ト が O:\WWitch な の で , イン スト ー ル 時 に ディ レク トリ を 変更 し な か っ た 
場合 は , この まま で 問題 あり ませ ん 。 

また , お 持ち の Magical CD-ROM の ボリ ュー ム 名 が “Magical_cdrom100”" で , 
WWUpdate20001122.exe 以 前 の アッ プ デ ー タ を 適用 し て いた り , “Magical_cdrom101" 
で ある 場合 は , LSI-C が 16bit 版 で ある こと に 起因 する コン パイ ル 時 の 不具 合 が 発生 する 
可能 性 が あり ます 。 こ の 場合 は , WonderWitch サ ポー ト web サ イト か ら 「32bit/16bit 統 
合 版 LSI C-86 for WonderWitch] “1sic86ww.zip” を 入手 し , お 手持 ちの 解 姜 ソフ ト で 展 
開 し て 得 ら れる ファ イル 群 を , イン スト ー ル ディ レク トリ 以下 の lsic86ww 以 下 の も の 
と 置き 換え て くだ さい 。 

自分 の 環境 を つね に 最新 版 に 合わ せ て お く た め に も , WonderWitch サ ポー ト Web サ 
イト は , こま め に チェ ッ ク す る こと を お すす めし ます 。 


: 窟 設定 ファ イル の 修正 


開発 環境 の イン スト ー ル が 終わ っ た ら , 設定 ファ イル の 修正 を 行い ます 。 た だ し , 
この 修正 は , デフ ォ ル ト 以 外 の ディ レク トリ に イン スト ー ル し た 場合 の み 必 要 な 作業 
で す 。C:\WWitch に イン スト ー ル し た 場合 に は 必要 あり ませ ん 。 

修正 対象 と な る ファ イル は , イン スト ー ル ディ レク トリ 以下 の binwsetup.bat と 
lsic86ww\bin\_lcc86ww の 2 つ で す 。 た と えば , D:\Majyo に イン スト ー ル し た 場合 , 
D:\Majyo\bin\setup.bat と D:\Majyo\lsic86ww\bin\ lcc86ww の 2 つの ファ イル が 対象 に 
な り ま す 。 

修正 内 容 は , ファ イル 内 に ある “Ci\WWitch” の 記述 を , すべ て 指定 し た イン スト 
ー ル ディ レク トリ に 書き 換え ます 。 た と えば , D:\Majyo に イン スト ー ル し た 場合 , フ 
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3 記 文 対象 ファ イル の 位置 


| アイル 編集 ) 表示 移動 


| VW 回 ldexe 門 r86.exe 


sndcnyexe 6 問 kmmakeexe 軸 ] makedef 
"TransMagic.exe . 門 lcc86exe mercexe 
回 lbr86exe 問 oar.exe 


当 
DE 


List1-1 setup.bat の 書き 換え 


REM 

REM setup bat fi1e for Windows pl1atfForms 

REM 

REM Copyright (C) 2000 Qute Corporat1on . A1] rights reserVed . 
REM 


set PATH= 回 畔 M 請 Ybin, 国 MMW sic8 euybin:*PATH 
Se TZ=JST-9 
set MAKEDEFAULT= 較 議 主計 議 *] sic86wewbinwmakedef 


REM doskey が ある と 便利 。 但 し , NT 系 で は 必要 な い 。 
doskey 


List1-2 lcc86ww の 書き 換え 


# 1cc86ww: configuration f11e of LST C-86 For WonderWitoch on Windows 
-DLST C WW -DLST C -O 

-x 請 計 還 馬 iceuybin 

に 大 Yinc1ude 

/ ま \lsic86ww\inc1ude 

\]1ib 

倫 \]s1cC86ww\11D 


-TSTEMP 
-Kk "-Fc -T 20000 -TDATA 10000" 
-aCrt0]pn2 .ob] SLCC86 g 


| -111bww -]runtime 


ワン ダー ウィ ッ チ を イン スト ー ル し て みよ う < 寸 。 / 


ァイル D:\Majyo\bin\setunp と D:Majyo\bin\_lcc86ww を List 1-1, List 1.2 の よう に 修正 し 
生 

こう し た 設定 ファ イル の 書き 換え を 行う 場合 に は , オリ ジ ナ ル の ファ イル の 拡張 子 
を 変え て 残し て お く と , 再び 設定 を 変更 する 場合 に 非常 に 便利 で す 。 setup.bat を 
setup.bak に , _lcc86ww を _lcc86ww.bak な ど と し て 残し て お く と よい で し ょ う 。 


: 倫 ′ テ キス ト エ ディ タ の 準備 


ここ まで の 作業 で , LSICC を 中 心 と し た WonderWitch 付 属 の 開発 用 ツー ル を 用 意 で き 
まし た 。 し か し , まだ や る こと が あり ます 。 こ こ か ら は 続い て , テキ スト エディ タ の 
準備 と , 作業 ディ レク トリ の 準備 を 行い ます 。 

まず , テキ スト エディ タ で す が , Windows 付 属 の テキ スト エディ タ 「 メ モ 帳 
(notepad) | に は , テキ スト エディ タ と し て 必要 最低 限 の 機能 し か 用 意 さ れ て いま せん 。 
で すか ら , この エディ タ を 使っ て 作業 を 行う こと は 得策 で は あり ませ ん 。 あ な た が 普 
段 使っ て いる , 使い や すく 高 機能 な テキ スト エディ タ が ある 場合 は , それ を 使え ば よ 
MA で しま よう!8 

し か し , も し そう いっ た エディ タ が な い の で あれ ば , これ を 機会 に 使い こなせ る テ 
キス ト エ ディ タ を 1 つも つべ き で す 。 特に , プロ グラ ミン グ の 経験 は ある けれ ども , 
VisualBasic や Visual C++ な ど を IDE (統合 開発 環境 ) で し か 使っ た こと が な いと いう 人 
に は , 非 IDE 下 で の プロ グラ ミン グ 技 能 を 取得 する うえ で も (そし て WondeWitch は 非 
IDE で す ) 必要 に な り ま す 。 

利用 する テキ スト エディ タ を 選ぶ と き は , 初め て コン ピュ ー タ を 買う と き と 同 じ で , 
な る べく 利用 者 が 多く 支持 を 集め て いる も の , 自分 の 身近 に 利用 者 が いる も の を 選ぶ 
と よい で し ょ う 。 市 販 品 や イン ター ネッ ト で 入手 で きる 利用 者 の 多い Windows 用 テキ 
スト エディ タ と し て は , Table 1.2 に あげ た よう な も の が あり ます 。 

利用 者 の 多い ソフ トウ ェ ア を 使用 する メリ ッ ト は , マニ ュ ア ル 以 外 の 資料 が 充実 し 
て いる こと で す 。 イ ンタ ーネット の 各種 検索 サー ビス を 利用 すれ ば , 初心 者 向け の イ 
ンス トー ル の 手引 きか ら , 使い こなす た め の テ クニ ッ ク ま で , さま ざま な 資料 を 見 つ 
ける こと が で きる で し ょ う 。 マ ニュ アル や イン ター ネッ ト 上 の 資料 を 活用 し て , 少な 
く と も , 起動 , 終了 ,. セー プ , ロー ド , 選択 範囲 指定 , コピ ー, カッ ト , ペー スト 
検索 , 置換 と いっ た 基本 操作 を 問題 な く 行 を る よう に な っ て くだ さい 。 

ここ で は テキ スト エディ タ の 必要 性 に つい て 述べ る に と ど め ます 。 各自 , テキ スト 
エディ タ を 用 意 (イン スト ー ル ) し , デス クト ッ プ に ショ ー ト カッ ト を 用 意 し た り , 
テキ スト ファ イル や プロ グラ ム の ソー ス フ ァ イル と 関連 付け た り し て , 自分 な り に 作 
業 の し や すい 環境 を 作っ て みて くだ さい 。 
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'Table 1-2 Windows 用 テキ スト エディ タ 各 種 


DOS 時 代 の 代表 的 な テキ スト エディ タ VZ の 流れ を くむ 
Windows 用 テキ スト エディ タ 。VZ 時 代 か ら 特に プロ グラ マ 
の 愛用 者 が 多い 。WonderWitch の 仕様 を 見 て , 遠い 目 に な っ 
て る 30 代 の 利用 者 が 多 そ う 。 ち な み に VZ の 作者 cmos 氏 は 
WonderWitch の 開発 に も 一 役 買 っ て いる 
[http://www .vi11agecenter.co.〕p/】 
DOS 時 代 の 代表 的 な テキ スト エディ タ MIFES の Windows 版 。 
DOS 時 代 に は VZ と 人 気 を 2 分 し て いた 。 パ ソコ ン 通 信 や 文章 
書き の 人 た ち を 中 心 に 支持 され て いた 

[http://www .megasoft .co.]p/] 

Windows 用 テキ スト エディ タ の 定番 。、 プ ログ ラマ の ユー ザ も 
秀丸 エ ディ タ ( シ ェ ア ウ ェ ア ) | 多い 。Windows 以 前 の パソ コン を 知ら な い 世 代 が 利用 者 の 中 
心 と 思わ れる 【〔http: //hidemaru.xaxon .co.]p/] 


WZ Editor (市 販 品 ) 


MIFES (市 販 品 ) 


Windows 用 テキ スト エディ タ で 支持 を 集め て いる も の の は ほ と 
ん ど が シェ アウ ェ ア で ある な か , 後発 な が ら 支 持 を 集め つつ 

TeraPad (フリ ー ウ ェ ア ) ある フリ ー ウ ェ ア の テキ スト エディ タ ( 付 録 CD-ROM に 収録 ) 
(http://www2s.big1obe.ne.]p/~ 上 -susumu/ 
toc1ip/ 


テキ スト エディ タ の 世界 標準 と 言っ て も 過言 で は な い 。 あ 
ら ゆ る コン ピュ ー タ 上 で 利用 が 可能 な た め , これ が 使い こ 
な せれ ば , いか な る 場合 も 困ら な い 。 日 本 で は , X68000 だ 
Emacs 系 (GPL) っ た 人 や UNIX の 人 が 利用 者 の 中 心 と 思わ れる 。GPL は , 単 
に 使う だ け な ら フリ ー だ と 考え る と よい 
[http://www.vector.co.]p/ypack/fi1earea/win95 
/writing/edit/emacs/〕 


7 商 : 作業 用 ディ レク トリ の 準備 


続い て , 作業 ディ レク トリ を 準備 し ます 。「 デ ィ レ クト リ 」| は 最近 で は 「 フ ォ ル ダ ]」 
と 呼ば れる こと が 多く な っ て いま す が , プロ グラ マ と し て は 「 デ ィ レ クト リ ]」| を 使う 
ほう が カッ コイ イ で し ょ う 。 

コン ピュ ー タ を 使い や すく し て いる 機能 の 1 つ に 「 フ ァイル シス テム | が あり ます 。 
これ は 階層 構造 を も て る 場所 「 デ ィ レ クト リ 」 に , デー タ 「 フ ァイル 」 を 配置 し て , 
デー タ を 配 思 場所 の 住所 「 パ ス 」 に よっ て 管理 し よう と いう も の で す 。 フ ァイル シス 
テム が な けれ ば , 同じ 名 前 の ファ イル を 複数 も つこ と も で きま せん し , そもそも デー 
タ を ファ イル と し て 扱え ませ ん 。 フ ァイル シス テム は , 現在 の コン ピュ ー テ ィング を 
支え る 重要 な 概念 の 1] つ なの で す 。 こ の 機能 を 有効 に 活用 する た め に , プロ グラ ム を 作 


9 須 = ウ ォ ッ チ を イン スト ニル ルイ て みお 5 s 引 記 9 


成す る と き に は , 作成 する も の ご と に 作業 ディ レク トリ を る の 8 
WonderWitch 用 プロ グラ ム 作 成 の た め の 作業 ディ レク トリ 人 に 6 わか る よう 
な 位置 , 名 前 で 作業 ディ レク トリ を 作成 し ます 。 た と えば , 開発 環境 を C:\WWitch 以 

下 に イン スト ー ル し た の で あれ ば , C:\WWitch\work デ ィ レ クト リ を 作成 し , 作業 ディ 

レク トリ と すれ ば よい で し ょ う 
次 に , 作成 し た 作業 ディ レク トリ で 作業 を 行う た め に , 作業 ディ レク トリ に , MS- 

DOS プ ロン プ ト (WindowsNT4/2000 で は コマ ンド プロ ンプ ト ) へ の ショ ー ト カッ ト を 

作成 し ます 。 

Windows98/NT4 の 場合 は [スタ ー ト ] 一 [プログ ラム] 一 [MS-DOS プ ロン プ ト ( コ 
マン ド プ ロン プ ト )], WindowsMe/2000 の 場合 は [スタ ー ト ] 一 [プログラム] 一 [ ア 
クセ サリ ] 一 [MS-DOS プ ロン プ ト (コマ ンド プロ ンプ ト )] を マウ ス の 左 ボ タン で ク 
リッ ク す る と , MS-DOS プ ロン プ ト が 起動 し ます 。 こ の メニ ュー 項目 と 同じ 機能 を も 
た ショ ー ト カッ ト を 作業 ディ レク トリ に 用 意 す れ ば よい の で コピ ー し まし ょ う 。 コピ 
ー す る た め に は , 起動 する た め に 先ほど マウ ス の 左 ボ タン を クリ ッ ク し た と ころ で , 
マウ ス の 右 ボタ ン を クリ ッ ク し ます 。 す る と , メニ ュー が 現れ る の で , そこ で [コピ ビー] 
を 選択 (マウ ス の 左 ボ タン を クリ ッ ク ) し ます 。 その後 で , 作業 ディ レク トリ を 表す 
ウィ ンド ウ 上 で マウ ス の 太 ボ タン を クリ ッ ク し て メニ ュー を 出し , [貼り 付け ] を 選択 
すれ ば , 作業 ディ レク トリ に MS-DOS プ ロン プ ト の ショ ー ト カッ ト が 作成 され ます 


Mi 
人 
き 


重 MS-DOS プ ロン プ ト 


吾 ロ E| 


1_ sr 5 填 員 鳳 | 団 | 下 下 4 
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借 MS-DOS プ ロン プ ト の ショ ー ト カッ ト を コピ ー す る 


< relueut=yjaugr uuufo は 


Wo uedae [ 選 Microsoft web 発生 D 
P Pro 
還 | oe ak の 四 Sime 4 
Ofice ドキ ュ メン ト を 開く 
ーー 2 
* 
12 
『 1 認 0025 の で こ m ロ 
に YO】 
OS ) 回 スタ 5ー げ 37* ・ 
コ 最近 使っ た 2 人 ⑩5 ゆき 5O 
訟 定め ) 半 jnternet Exp DO 
償 3 キー ② マ ウス の 左 ボ タン を 
QA] ks@ クリ リック 
の pm 
本 ] 名 を 指定 て 夷 行 ⑯ 
⑩ を 管 @ で マウ ス 
の 右 ボ タン を 


クリ ッ ク 


ショ ー ト カッ ト を 作成 し た ら , プロ パテ ィ を 開き , [プロ グラ ム ] タブ 内 の [作業 デ 
ィ レ クト リ ] NM また , Windows98/Me の 場合 は , [バッ 
チ フ ァイル ] ! に 出 て きた setup.bat を , 各自 の 環境 に 応じ た パス 表現 で 記述 し ま 
956 ポッ 60 , 「 わ ん だ ー う いっち] な どの わか りや すい 名 前 に 
変え て も よい で し ょ う 。 


上 MS-DOS プ ロン プ ト の 設定 


アイ 4 の ⑥。! 1 Ka Z7CWEIEE | 


TW 
園 とっ 
| ヵ ド LX⑥) cwwwerwek 名 


全 投 ブロ 2 ラム | フォ ッ ト | 寺 り | 画面 | その 他 | 


MS-DOS フロ NAS IMS-DOS ブロ ンプ ト 
ン ブ ト 0S) 1 
時 パンド ジッ 0 YoowswoowMANOGM 財 


作業 ディ ルク: ここ の 記述 を 消去 
J チ ファ イル 8) setup.bat を 指定 
アクセ 2 キー 3 ーー 
容 行 時 の 大 (BZ 還 常 75CFO = = 〇 {tn{{ 

フロ 2 ラム 人 了 時 に の ィ ン ドウ を 開 じ る 09 時 
NS-Dos 用 日本 回 入 カ シス チム の 傍 い 方 に つい て は 、 へ ルプ を 季 し て くださ 


ミィ ct | 
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疫 イン スト ー ル の 確認 


設定 し た MS-DOS プ ロン プ ト を 起動 し , setup.bat が 問題 な く 実 行 さ れ て いる こと を 確 
認 し まし ょ う (Fig.1-11) 。 

WindowsNT4/2000 の 場合 は , setup.bat を コン ソー ル か ら 実 行 し な けれ ば な り ま せん 
の で , setup.bat を 作業 ディ レク トリ に コピ ー し て お く と よい で し ょ う 。 
Windows98/Me で バッ チ フ ァイル の 実行 時 に 「 環 境 変数 の た め の 領 域 が 足り ませ ん .」 
と いわ れる 場合 に は , プロ パテ ィ を 開き , [メモ リ ] タブ 内 の 環境 変数 の 初期 サイ ズ を 
1024 な ど と 指定 し て くだ さい 。 


ji 用 MS-DOS プ ロン プ ト の 起動 


]:\Witch\lsic85i 


便利 。 但 


MS-DOS プ ロン プ ト は , 俗 に 「DOS 窓 ] な ど と も 呼ば れ , GUI (グラ フィ カル ユー ザ 
イン タフ ェ イ ス ) ベー ス の Windows 上 で CUI (キャ ラク タユ ー ザ イン タフ ェ イ ス ) を 実 
現す る も の で す 。Windows が 登場 する 前 に 広く 使わ れ て いた 「MS-DOS」 と の 互換 性 を 
保つ た め に 用 意 き れ て いる も の で す が , プロ グラ マ に と っ て は , な く て は な ら な い 道 
具 の 1 つ で す 
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WonderWitch に お いて は , この MS-DOS プ ロン プ ト を 使っ た 作業 が 多く な り ま す 。 普 


段 か ら 使い 慣れ て いる 人 は 問題 な い の で す が , そう で 


な い 人 は 新た に MS-DOS プ ロン プ 


ト の 使い 方 を 知ら な けれ ば な り ま せん 。 必要 最小 限 の DOS5 コ マン ド を Table 1-.4 に あげ 
て お きま す が , DOS コ マン ド の 詳細 な 解説 は 本 書 の 範囲 を 越え を ます の で , DOS/V コ マ 
ンド リフ ァ レ ンス (http:/www.nifty.ne.jp/forurVfpcu/dosvcmd/) な ど で 勉 強 す る こと 


を お 勧め し ます 。 


Table 1-3 CUlvsGUI 


1 


Windows に お ける 実装 | MS-DOS プ ロン プ ト 


入力 装置 キー ボー ド 


想定 する ユー ザ の コン 
ピュ ー テ ィング 技能 


高い (プラ イン ド タ ッ チ が 非常 
に 有効 ) 


低い (マウ ス が 操作 で きれ ば 初 
歩 的 な 操作 が 可能 ) 
低い (人 間 に は 手 が 2 本 し か な 
い の で , マウ ス と キー ボー ド は 
同時 に 操作 で き な い ) 


ソフ トウ ェ ア 間 の 連携 


柔軟 に 可能 


ソフ トウ ェ ア に 依存 


主 UI と し て 利用 され て 
いる 代表 的 な OS 


UNIX 


MacOS 


日 本 に は , そもそも キー ボー ド 
を 扱う 文化 が な い の で , OUI に 
対応 で きる 人 の み が コ ン ピ ュ ー 
タ を 扱え る 状況 が 長らく あっ 
た 。 タ イプ ライ タ を 使っ て きた 
欧米 人 に は , 日 本 人 ほど の コン 
ピュ ー タ アレ ルギー は な いも の 
と 思わ れる 


概要 


作業 効率 の 悪さ を 補う た め , 処 
理 の 自動 化 が 行わ れる よう に な 
の GS だ 。。 だ だ グ 豆 グマ の 
行う 作業 は 、 そ の 性 質 か ら , そ 
うし た 技術 の 思 恵 を 得る こと が 
難し い 
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Table 1-4 DOS コ マン ド 一 覧 


現在 作業 し て いる ディ レク トリ か ら , 指定 され た ディ レク トリ へ 移動 する 
例 ・ C:\wwitch\bm ディ レク トリ ム へ 移動 する 
> od C:\wwttch\bin 
例 : 現在 の ディ レク トリ の 下 に ある work デ ィ レ クト リ へ 移動 する 
> CQ WorK 
例 : 現在 の ディ レク トリ の 1 つ 上 の ディ レク トリ へ 移動 する 
CGI 
例 : cd コマ ンド の 使い 方 を 確認 する 
> @Q / タ 


ディ レク トリ 内 の ファ イル , ディ レク トリ の 一 覧 を 見 る 
例 : 現在 の ディ レク トリ 内 の ファ イル , ディ レク トリ の 一 覧 を 見 る 


> dir 
例 : 現在 の ディ レク トリ 内 の ファ イル , ディ レク トリ の 名 前 の み の 一 覧 を 見 る 
> dr /w 


例 ・C:\wwitch ディ レク トリ 内 の ファ イル , ディ レク トリ の 一 覧 を 見 る 
> dir C:\wwitoh 

例 *dir コマ ンド の 使い 方 を 確認 する 
> GiHF.  /? 


コマ ンド 入力 の 履歴 を 保存 し , カー ソル キー で 呼び 出せ る よう に する 。 
WindowsNT4/2000 の コマ ンド プロ ンプ ト で は , 最初 か ら doskey が 有効 で ある 
の と 同じ 状態 な の で , doskey を 使う 必要 は な い 
例 : doskey を 開始 する 

> doskey 
例 : doskey の 使い 方 を 確認 する 

> doskey /? 


環境 変数 を 確認 し た り , 変更 し た り , 追加 し た りす る 。 環境 変数 が 正しく 設 
定 さ れ て いな いと , コマ ンド や プロ グラ ム が 起動 で き な か っ た り , 正しく 動 
作 し な か っ た りす る の で 注意 が 必要 。 特 に , 環境 変数 PATH に よる コマ ンド 
(プロ グラ ム ) 検索 機構 を 理解 し て いな いと , MS-DOS プ ロン プ ト を 使う うえ 
で 不便 な 思い を する だ ろう 

例 : 環境 変数 PATH に C:\bim を 追加 する 

> Se 上 PATH=C : \D1n : も PATH も を 
例 : set コマ ンド の 使い 方 を 確認 する 
> 8e キ /? 


doskey 


Windows も 含め MS-DOS 環 境 下 で は , 決ま っ た 順番 で コマ ンド や プロ グラ ム を 
実行 する 場合 の た め に 「 バ ッ チ ファ イル | と いう , 一 種 の スク リプ ト を 利用 
する こと が で きる 。 バ ッ チ ファ イル は , 拡張 子 “.bat' を も つ テ キス ト フ ァ イ 
ル で , コマ ンド ライ ン で 与え る 命令 を 列記 し て お け , コマ ンド ライ ン を 操作 
し た か の よう に 実行 する こと が で きる 。wWonderWitch で は setup.bat な ど に 利用 
され て いる の で , 参考 に する と よい だ ろう 
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we る ワン ダー ウィ ッ チ を 使っ て みよ う 


さて , 苦労 の か いあ っ て , WonderWitch を 使う 準備 が で きま し た 。WonderWitch 用 
に 作成 され た 実行 形式 ファ イル が , WonderWitch 上 で 問題 な く 動 作 す る こと を 確認 し 
填 REG9 計 

WonderWitch の カー トリ ッ ジ を WonderSwan に 挿し て , B ボ タン を 押し な が ら 電 源 を 
投入 し ます 。 す る と 「Freya Monitor| が 起動 し ます の で , 


[setup] を 選択 し , 各種 設定 項目 (Table 1-5) を 確認 , 設定 し ます 。 


ョ 清 邊 Freya Monitor の setup 
eoome を oO FFeyo Pionit を or 1 
ーーー 号 を sa お 一 一 一 


44 4 2 Sun > 


旭 uudrote 二 は の 
に # き すさ コ 2 


0K 


ツモ 9、 0 
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Table 1-5 setup 項 目 


年 (西暦 ), 月 , 日 , 曜日 を 設定 する 。 曜日 設定 は 内 蔵 カ レン ダ に よる 自動 
SE」 


時 (24 時 間 表 記 ), 分 , 秒 を 設定 する 
0 設定 する 。9600, 38400 の いずれ か を 選べ る 
が , 問題 が な いか ぎり 38400 (速い 方 ) を 推奨 
一 定時 間 キ ー 操 作 が な か っ た 場合 , WonderSwan を 一 時 停止 状態 に し , 電池 
の 消耗 を 抑え る 機能 を 設定 する 。OFF, 1 一 10 分 , 以降 5 分 間隔 で 60 分 まで を 
選べ る 。 Sleep 状態 か ら は , 何 か キ ー を 押す こと で 復帰 で きる 


注 ・ 上記 項 目 は Freya Monitor Ver 1.0 の も の で す 。 


Freya Momitor 終 了 後 や , 普通 に 電源 を 投入 する と , 標準 添付 の シェ ル “Meg′ が 起 
動 し ます 。Meg で は , Y2, Y4 ボ タン で , 「 ラ ンチ ャ | 「 フ ァイル 」「 通 信 ] の 画面 に 順次 
因り 続 える ゐ こ と が で きま す 。、 ラ ンチ ャ ON グロ グラ ム の 実生 な 。 ツァ イル で は プチ イ 
ル の 削除 や コピ ビー を, 通信 で は PC や 他 の WonderWitch 搭 載 WonderSwan と ファ イル の 

送受 信 を 行い ます (詳し く は Magical Book の 第 2 章 を 参照 )。 こ こ で は , Meg を 通信 画面 

に 切り 替え れ ば WonderSwan 側 の 準備 は 完了 で す 。 


Mg2008 信 還 加 


WonderSwan 側 が 準備 で きた ら , PC 側 の 準備 で す 。PC と WonderSwan を ケー ブル で 
繋い だ ら , イン スト ー ル ディ レク トリ (デフ ォ ル ト で は C:\WWitch) の 下 の bin デ ィ レ 
クト リ に ある TransMagic.exe を 起動 し ます 。 
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aa 5 TransMagic.exe 


人 @T 
アイ ル ⑥ カー は ば 526) ヘル プ ゆ 


「 マ イコ ンピュータ MenderWich カー トリ ッ ジー ーーー 
EYwwereon_s |1.〔… 計 人 om プロ グラ ム エ リ ア | 
| Discemhected - | サイ ズ | 日 人 ー 


4 2000-11-14 1930850 
bmpcnyexe 53248 2000-11-29 15.4746 


還 confiecf 148 2000-12-27 145122 

に exe2fbnexe 12.720 2000-09-02 2221.32 っ 
1 mkfentexe 45056 2000-09-02 2221.36 

還 ]setupbash 258 2000-09-02 2221.38 

昌江 ]setupbat 247 2000-09-02 2221:38 ン ン 閥 肌 
骨 SETUPPF 967 2000-12-18 221514 縛 ご 6 
sndcnvexe 45056 2000-09-02 2221.44 議 
国 (mpfk 369.792 2000-12-27 1451.26 
2000-11-01 184046 


| 
3 ーー 92 りー oc ご 「 
| 
| 


ーー ao 


DOYTE 了 本 時 生 11860MTHT 


初め て 起動 し た と き に は , WonderSwan 側 同様 , 設定 情報 が 正しい か を 確認 する 必要 
が あり ます 。[ フ ァイル ] メニ ュー の [シリ アル ポー ト 設 定 ] を 開い て , ケー ブル を 難 
い だ 通 信 ポ ー ト , WonderSwan 側 で 設定 し た 通信 速度 が 設定 され て いる か 確認 し まし ょ 
う 。 


通信 ポ ボート: Icow | 
通信 速度 : Fe400 | 


確認 で きた ら , TransMagic.exe の 画面 中 央 上 部 に ある 魔女 アイ コン を クリ ッ ク し ま 
す 。 す る と アイ コン が 変化 し , WonderSwan と 接続 され た 状態 に な り ま す 。 
この 状態 で , 


① 画 面 左 側 の [マイコ ンピュータ ] 内 の ディ レク トリ を 選択 

②WonderSwan に 転送 し た い フ ァイル を 選択 

③ 画 面 右側 の [WonderWitch カ ー ト リッ ジ ] の 「[/rom0/ (プロ グラ ム エ リ ア )] を 
選択 

④ 画 面 中 央 の 右向き 矢印 ボタ ン を クリ ッ ク 
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イル が 転送 され ます 。 た と えば , イン スト ー ル ディ レク 


と する と WonderSwan 側 に ファ 
ます る と 転送 処理 


トリ の 下 の samples\calendar\calendar.fx を , プロ グラ ム エ リ ア に 転送 
が 正常 終了 し た 後 , プロ グラ ム エ リ ア に 「 カ レン ダ | が 現れ ます 。 


3 calendar 転 送 後 の TransMagic.exe 


ins こ 四 回 四 
アイ ル ⑥) カー ドッ 6) ヘル ブ (ば 6 ほる 


マイ エ ゼ ュー ターーーーーーーーーーーーー - V 
に ーーーー WWWitchWSamplesWoalendar ま 信 eg ジー 』| 
ロ | 


mr。 2000- 09-02 202 


ia 11-14 191 
[C]calendarc 2000-09-02 222 | 

| 回 calendarcf 2000-09-02 222 
calendar 2000-09-02 222 E 
缶 calendar.map 2000-0 ぼ 0 
' 軸 ] makefile 2000-09-02 222 | 


転送 し た 「 カ レン ダ | は ラン チャ 画面 か ら 実 行 す る こと が で きま す (Fig.1-19) 。 

samples デ ィ レ クト リ や contrib\games デ イレ クト リ に ある , さま ざま な .f フ ァイル 
を 転送 し て みて くだ さい 。 自分 で 作成 し た ファ イル も , 同じ よう に 転送 し て 使わ な け 
れ ば な り ま せん か ら , TransMagic.exe に 慣れ て お いて くだ さい 。 
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』 calendar の 実行 画面 
JununF 計 JITi 開 
『h 


un Fn Tu 選 d Thu Fi 号 ロ も 
1 4 3 し ! 王 1 
マ に 紀 1 1 1 1 13 
1 本 1 1E 1 18 1 ヨ 
テ ヶ 1 フラ 。" 23 や 2 の 2 人 交 世 ユマ 
| と よ : | ヨロ は 1 


IBT ロ RT: exit "本: wie1d 


sse Hello,World. 


WonderWitch の 準備 も で き , ファ イル を 転送 し て WonderSwan 上 で 実行 する こと も で 
きる よう に な り ま し た 。 お 待た せ し ま し た 。WonderWitch 用 の プロ グラ ム を 作っ て 
WonderSwan 上 で 実行 し て み ま し ょ う 。 ま ず は , お 約束 の 「Hello,World.] で す 。 


: 仙 一役 的 な 「Hello.World」 


普通 , C 言 語 の 教科 書 本 に 掲載 され て いる 「Hello,World.|] は , List 1.3 の よう な も の 
で すず 8 


List1-3 標準 的 な Hello,World. 


を 
he11o.c 

He]1o, Wor1d. 
standard version 
し が 


#1nc1ude < ぐ stdio.h> 
int main() { 


printf ("He11o, Wor1d.\n") : 
return 0: 


Hello,World. 二 |9 


し か し , WonderWitch で は , この コー ド を 利用 で きま せん 。 マ ニュ アル や , イン ス 
トー ルディ レク トリ (デフ ォ ル ト で は COC:\WWitch) の 下 の doc デ ィ レ クト リ に ある html 
形式 の 資料 を 注意 深く 読め ば わか り ま す が , WonderWitch で は , 現 段 階 (2000 年 12 月 
25 日 時 点 ) で 標準 出力 を サポ ー ト し て いま せん 。 こ の た め , 標準 出力 に テキ スト の 出 
力 を 行う printfE() な どの 関数 が 利用 で きま せん 。 

一 般 的 な 0 言語 の 学習 で は , ANSI CO 規 格 の 標準 関数 , 標準 入出 力 を 前 提 と し た シス 
テム で の プロ グラ ミン グ を 学び ます 。 し か し , 世の中 の コン ピュ ー タ シス テム に は 標 
準 入出 力 を 実装 し て いな いも の が 多く あり , ほとん どの ゲー ム 機 も 標準 入出 力 を も た 
な い シ ステ ム な の で す 。 ゲ ー ム 機 に は , 標準 入出 力 の 実体 と し て よく 利用 され る コン 
ソー ル (Windows に お いて は , MS-DOS プ ロン プ ト ) が あり ませ ん よね 。 


疫 ワン ダー ウィ ッ チ で の 「Hello,World.」 


LSI-C を 使っ て , WonderSwan 填 WonderWitch 上 で 「Hello,World.] の 表示 を 行う プロ 
グラ ム の 例 が , List 1.4 に な り ま す 。 


List1-4 ワン ダー ウィ ッ チ の た め の Hello,World 


/* 
he11o.c 

| He]1o, Wor1d. 

| LST C-86 for WonderWitch version 
た / 


#1nc1ude <sys/Dbios .h> 
int main() { 
text Screen ini(): 
text put string(1, 1, "He11o,Wor1d.") : 


while(key press check() != KEY START) 


return 0 
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ANSI C 規 格 の 標準 関数 で は な い , 見 慣れ な い 関 数 を 使用 し て いま す 。 こ の プロ グラ 
ム で は , text screen init() で 画面 を テキ スト 表示 用 に 初期 化し , 
text put string() で 文字 列 を 表示 し , key press check() を 用 いて START ボ タ 
ン が 押さ れる まで 終了 し な いと いう よう に , それ ぞ れ 処理 を 行っ て いま す 。 こ れ ら の 
関数 は , WonderWitch 専 用 の ライ ブラ リ 関 数 で す 。 取 扱 説明 書 や も . イン スト ー ル ディ 
レク トリ (デフ ォ ル ト で は O:\WWitch) の 下 の doc デ ィ レ クト リ に ある html 形 式 の 資料 
に 詳細 が 記述 され て いま す 。 本 書 で も , よく 利用 する 関数 に 関し て は , 2 章 以 降 で 詳し 
く 解 説 し ます 。 ま た , これ ら の 関数 を 利用 する た め に , ヘッ ダフ ァイル sys/bios.h を イ 
ジル ー ド し て ゆま すず 。 

この ソー スプ ログ ラム を コン パイ ル し て 実行 形式 を 得る に は , 先 に 用 意 し た MS-DOS 
プロ ンプ ト か ら , LSI-C を 使い ます 。 


> +1coc86 -o he11o.bin he11o.c 


MS-DOS プ ロン プ ト か ら 上 記 の コマ ンド を 実行 する と , WonderWitch 用 の 実行 形式 
hello.bin が 作成 で きま す 。 ソ ー ス プロ グラ ム に 間違い が な い に も 関わ ら ず , コン パイ ル 
が 正しく 行わ れ な い 場 合 は , 改変 し た setup.bat や _lcc86ww に 問題 が ある 可能 性 が あり 
ます 。 再度 チェ ッ ク し て みて くだ さい 。 

作成 する 実行 形式 の 名 前 を -o オ プシ ョ ン で 明示 的 に 指定 し な い 場 合 , hello.exe の 名 前 
で 実行 形式 が 作成 され ます 。 実際 に は 拡張 子 が 違う だ け で 中 身 は 同じ で すか ら , わざ 
わざ -o オ プシ ョ ン 指 定 を し な く て も よさ そう に 思え ます が , 拡張 子 が .exe だ と , 
Windows (MS-DOS) が 自身 の 上 で の 実行 形式 だ と 認識 し て し まう の で , 誤っ て 実行 し 
て し まわ な いと も 限り ませ ん 。 も し 誤っ て 実行 し て し まっ た 場合 , OS や ファ イル を 破 
損し か ね ませ ん か ら , WonderWitch 用 の 実行 形式 を 拡張 子 .exe で 作成 し な いよ うに 心 が 
層 ま し よう 5 

実行 形式 が で きた ら , TransMagic.exe を 使っ て , hello.bin を WonderWitch の プロ グラ 
ム エ リ ア に 転送 し ます 。 転送 ファ イル に hello.bin を 指定 する と , ファ イル を どの よう な 
扱い で 転送 する か を 設定 する ダイ アロ グ (Fig.1-20) が 開き ます 。 


Hello,World.、 起 。 21] 


hello.bin 転 送 時 の 設定 ダイ アロ グ 
以下 の 情報 で 送信 し ます 
名 ikisipー…ー べ つべ OK | 
_MhFelcbp 。  、 キャ 2gyl 

| クー クーn%#{ 

サイ ズ : っ ーー ンー キー 


1 ビーIHBem ia 
実行 可能 を 一 ぁ 庄 符 可 能 「 jndirect Library 
0742 の | 込み 可能 。 「 StreamDevice 
層 読み 出し 可能 DireCtdry File 


hello.bin は 実行 形式 で す の で , モー ド の 設定 で [実行 可能 ] に チェ ッ ク を つけ ます 。 

[OK] を 押す と 転送 が 行わ れ , プロ グラ ム エ リ ア に 「helo.bin| が 現れ ます 。 こ れ を ラ 
ンチ ャ 画面 か ら 実 行 す れ ば , WonderSwan の 液晶 画面 に 「Hello,World.] が 表示 され ま 
す (Fig.1-21) 。 終 了 す る た め に は START ボ タン を 押し ます 。 


LPC2/ hello.bin の 実行 画面 


He11o, Mar 1。 


List 1-4 を 参考 に すれ ば , WonderSwan の 液晶 画面 に は ま ざ ま テ キス ト を 表示 する プ 
ログ ラム が 作成 で きま す 。 コ ン パ イル , 実行 の 手順 に 慣れ る た め に も , いろ いろ 試し 
て みて くだ さい 。 

Windows な ど で , 統合 開発 環境 (IDE) を 使っ た プロ グラ ミン グ し か 知ら な い 人 に は , 
コン パイ ル , 実行 する の に 手間 の か か る 環境 に 思え る か も し れ ま せん 。 し か し , IDE を 
利用 で きる 開発 環境 は まだ まだ 少数 で , た いて い の 環 境 で は コマ ンド ライ ン で コン パ 
イル を 行っ て いま す 。 コ マン ドラ イン で コン パイ ル を 行え る 人 に と っ て , iDE を 利用 す 
る こと は , さほど 難し く あ り ま せん が , 逆 は 難し いで し ょ う 。 で すか ら , さま ざま な 
開発 環境 に 対応 で きる プロ グラ マ に な ろう と 思っ た ら , ぜひ , めん どく さき さがら ず に 
マン ドラ イン の 利用 に 慣れ て くだ さい 。 

22 誠 第 1 章 我が家 に 魔女 が や っ て きた 


yse FreyaOS を アッ プ グ レー ド す る 


「 ワ ンダ ー ウ ィ ッ チ を イン スト ー ル し て みよ う 」 (p.8) の 節 で は , サポ ー ト Web サ イ 
ト か ら , アッ プ デ ー ト ファ イル を ダウ ン ロ ー ド し , PC 上 の 環境 を 最新 に し まし た 。 し レ し 
か し , 本 当 は , PC 上 の 環境 を 最新 に 保つ の と 同時 に , カー トリ ッ ジ 上 の OS を 最新 に 保 
つ 必 要 も ある の で す 。 先ほど の 「Hello, World.] 程度 の プロ グラ ム な ら 問 題 な いと 考え 
られ ます が , 場合 に よっ て は , 新しく 提供 され た 開発 環境 と , カー トリ ッ ジ 上 の OS が 
と も に 最新 で な いと , プロ グラ ム の 動作 が お か し く な る 可能 性 も あり ます 。 

実際 に カラ ー ラ イブ ラリ (第 10 章 で 使用 ) を 利用 する と き は , FrayaO0S を 必ず バー ジ 
ョ ン 1.1.0 以 降 の も の に アッ プ グ レー ド す る 必要 が あり ます 。 

サポ ー ト Web サ イト か ら 入 手 し た アッ プ デ ー ト ファ イル の 中 に は , 最新 の FrayaO8 も 
含ま れ て いま す 。 更新 を 行っ た と き は , Fraya089 の バー ジョ ン が あがっ た か どう か を , 
確認 する よう に し た ほう が よい で し ょ う 。 


疫 : FreyaOS の パー ジョ ン を 確認 する 


カー トリ ッ ジ 上 の Freya08S の バー ジョ ン と , イン スト ー ル し た 環境 に 含ま れる 
FreyaO8 の バー ジョ ン を 調べ まし ょ う 。 
まず , カー トリ ッ ジ 上 の FreyaO85 の バー ジョ ン は , TransMagic.exe で 確認 で きま す 。 


に TransMagic.exe で カー トリ ッ ジ 情報 を 選ぶ 


27YG) bp ーッ 


。 マイ エセ エア 整 補 eS WandwWtch カー トッ ジー ーー 


| PEYWWitg 区切 7 | し xr ウロ グラ ム エ リア ) | 


叶 当 EVA KO045TQ 369664 2000-12-27 145124 
境 | GOTAQG BIN 7.158 2000-12-26 204114 


2000-12-19 2201 
]comm 2000-11-14 1909 
上 | コ cepy 2000-11-14 1909 
中 help 2000-11-14 1909 
II 2000-11-14 1999 
ご Js 2000-11-14 199 
- コ mmap 2000-11-14 1939 
2000-11-14 1909 


2000-11-14 1909 l 
ェ < 
2EKBPE ケ ーー ーー 
Size Used Avaiisbl 
4 4 


e Capacity Entrie 
0 100% 

roml 393216 386304 6312 38% 128 
肖 rt E5536 16256 維 280 24% 4 
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TransMagic.exe を 起動 し , WonderWitch と 接続 状態 に し て か ら , [カー トリ ッ ジ ] 一 
[カー トリ ッ ジ 情報 ] を 選ぶ と , Freya0OS の バー ジョ ン を 知る こと が で きま す 。 
Fig.1.23 で は , Freya08 の バー ジョ ン が 1.0.3 で ある こと が 確認 で きま す 。 


軸 條 村 光 % カー トリ ッ ジ 情報 


Hello TransMagic version 1.03R 
WonderWitch 1.01 


FreyaQS 1.0.3 
閣 の 5 106 


cZw Mee 103 
Owner WONDERSWAN 


次 に , イン スト ー ル し た 環境 に 含ま れる Freya08 の バー ジョ ン で す が , これ は イン ス 
トー ルディ レク トリ 以下 の 吾 bin に 含ま れる ファ イル を 調べ る こと で 確認 で きま す 。 

freyazzz.bin (zz : バー ジョ ン , 2001 年 3 月 1 日 時 点 で の 最新 版 は freya111.bin) が 
FreyaOS で す の で , ファ イル 名 に 含ま れる 番号 を 見 て , 最新 の OS の バー ジョ ン を 知る 
OS で きま すず の 。 


K * TransMagic.exe で FrayaOS を アッ プ グ レー ド す る 


調べ た カー トリ ッ ジ 上 の OS の バー ジョ ン が , fbin デ ィ レ クト リ 内 に ある 最新 の OS よ 
り 古 い 場 合 は , OS の アッ プ グ レー ド を 実行 し な けれ ば な り ま せん 。 

0S の アッ プ グ レー ド で は , し ば し ば カー トリ ッ ジ 上 の ファ イル シス テム を 再 構築 す 
る 場合 が あり , この と き は カー トリ ッ ジ 上 の ファ イル が 消え て し まい ます 。 そ こ で ま 
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ず 最 初 に カー トリ ッ ジ 上 の ファ イル で , 消え る と 困る ファ イル の バッ クア ッ プ を 取 
っ て お きま す 。 バ ッ ク ア ッ プ と いっ て も , 必要 な ファ イル を TransMagic.exe で PC 上 に 
転送 し て や る だ け で す 。 

アッ プ グ レー ド は , TransMagic.exe の 画面 中 央 上 部 の アイ コン を 操作 し て , 
TransMagic.exe と WonderWitch を 非 接続 状態 に し , Fig.1-25 の よう に [カー トリ ッ 
ジ ] 一 [FreyaO0S] 一 [アップグレード] を 選択 する こと で 実行 し ます 。 

する と , WonderWitch を モニ タモ ー ド で 起動 し [Recv System] を 実行 する こと が 求 
め ら れ ま す 。 

WonderWitch カ ー ト リッ ジ を WonderSwan に 挿し て か ら , B ボ タン を 押し な が ら 電 源 
を 投入 し , 「Freya Monitor| を 起動 きせ , [Recv System] を A ボ タン を 押し て 選び ます 。 
する と WonderSwan 側 で は 「Negotiating.…]| と 表示 され , PC 側 か ら 新しい OS が 送ら れ 
て くる の を 待つ 状態 に な り ま す (Fig.1-25)。 


中 2 TransMagic.exe で アッ プ グ レー ド を 選ぶ 


WonderWitch を モー ニタ モー ド で 立ち 上 げ て 
状 am SR UCBCCU が SC 


05 を アッ プレ ー ド し ます 。 よら し いで すか ? 


Co | 


$4 64 0 
393216 512 392704 
65536 5 5536 


200 0 
(DISCONWECTED) 
eo 


1 


ここ で , [は い ] を クリ ッ ク し , ファ イル と し て fbin デ ィ レ クト リ 内 の 最新 の 08 を 選 
べ ば , ファ イル の 転送 が 開始 され ます 。 転送 中 は , WonderSwan の 電源 を 切っ た り , 
PC と の 接続 ケー ブル を 外し た り し な いよ うに し て くだ さい 。 

転送 が 終了 し た ら , 何 か ボ タン を 押し て モニ タ の メニ ュー に 戻り , 「EFreya Monitor」 
を [exitl で 終了 し ます 。 場合 に よっ て は 。 メ モ り の チェ ッ ク や ,。 ファ イル シス テム の 
再 構築 が 行わ れる か も し れ ま せん 。 

最後 に , TransMagic.exe で OS の バー ジョ ン を 再 確認 し . ちゃ ん と 新しい バー ジョ ン 
に な っ て いる こと を 確認 し て お きま し ょ う 。 
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WonderWitch を 利用 し て WonderSwan 上 で 動作 する ソフ トウ ェ ア を 作る た め に は , 何 
を どう いじ っ て や れ ば ハー ドウ ェ ア を 思う よう に 操作 する こと が で きる の か を , 知っ 
て いる 必要 が あり ます 。 

WonderWitch に は , アセ ン ブ ラ , 言語 の 両方 か ら 利 用 で きる ライ ブラ リ が 用 意 さ きれ 
て お り , 基本 的 に この ライ ブラ リ を 使っ て , 画面 や 音源 や その 他 の ハー ドウ ェ ア を 動 
作 き せる こと が で きま す 。 

本 章 か ら 第 4 章 ま で は , C 言 語 か ら こ の ライ ブラ リ を 使っ て ハー ドウ ェ ア を 利用 する 
方 法 に つい て 解説 し ます 。 

初め て ゲー ム 機 の プロ グラ ム 開 発 を 体験 する 人 は , 通 営 の コン ピュ ー タ シス テム と 
の ギャ ッ プ を 感じ る か も し れ ま せん が , 慣れ て し まえ ば , ゲー ム , 組み 込み 機器 に 関 
する プロ グラ ミン グ の スキ ル を 獲得 で きる で し ょ う 。 

な お , ゲー ム 機 な ど 一 般 の 開発 者 が あま り 使 わな い C 言 語 開発 環境 に は , 開発 環境 を 
開発 する コス ト な どの 問題 か ら , ANSI C 規 格 の 標準 関数 を すべ て 実装 し て いな い 場 合 
が あり ます 。WonderWitch で も , 普段 な に げ な く 使 っ て いる 標準 関数 の いく つか を 実 
装 し て いま せん 。 本章 の 例 を 基 に , 自分 で プロ グラ ム を 作る 場合 に は , その あたり に 
も 注意 が 必要 に な り ま す 。 


9 ワン ダー スワ ン の 画面 構成 


現在 , 複数 の メー カー か ら さ ま ざ ま な ゲー ム 機 が 発売 され て いま す 。 そ れ ぞ れ が 特 
徴 を ちあ っ て いま す の で , まっ た く 別 物 の よう に 見 える か も し れ ま せん が , 実は , ゲー 
ム 機 の 画面 構成 に 関す る 概念 に は , ある 基本 的 な 型 が ある の で す 。 こ の 型 の こと を ス 
プラ イト と 呼び ます 。 こ れ は , ANSI C に お いて コン ソー ル 画 面 が 基本 的 な 出力 装置 と 
し て 想定 きれ て いる の と 同じ よう な も の で , ゲー ム 機 の 画面 出力 装置 すべ て が 備え て 
いる 能力 と も いえ る も の で す 。 


K パ スプ ライ ト に つい て 


ゲー ム 機 の 画面 出力 装置 が 備え る 基本 的 な 仕組 み で ある スプ ライ ト の 概念 は , セル 
画 に よる アニ メー ショ ン の 画面 構成 手法 を コン ピュ ー タ の 画面 で 実現 する も の で す 。 
秀明 の プレ ー ン (アニ メ で いう と セル ) 上 に キャ ラク タ を 描き , それ を 重ね 合わ せ て 
ゲー ム 画 面 を 構成 し ます 。 キ ャ ラク タ を 移動 さき せ た け れ ば プレ ー ン を 動か し , キャ ラ 
クダ を 消し だ けれ ば グレーン を 抜き 取り ,。 キャ ラク クタ を え だ けれ ば デレ ー ン を 入れ 
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養える , と いっ た こと が 簡単 に で きる よう に な っ て いま す 。Windows で は スプ ライ ト 
を 扱え る よう に DirectX が 用 意 さ れ て いた り , ポリ ゴン が スプ ライ ト の 進化 形 で あっ た 
り と いっ た よう に , スプ ライ ト と ゲー ム は 切っ て も 切れ な い 間 柄 な の で す 。 


FE 当 馬 スプ ライ ト の 概念 


プレ ー ン 1 


WonderSwan も この スプ ライ ト を 用 いた 画面 表示 シス テム を も っ て いま す 。 
WonderSwan で は 128 枚 の スプ ライ ト プ レ ー ン を 利用 する こと が で き , それ ぞ れ の プレ ー 
ン に 8X8 ド ッ ト の キャ ラク タ を 描く こと が で きま す 。 ま た , 古典 的 な スプ ライ トシ ス 
テム に 用 意 き れ て いる , 表示 領域 全体 を カバ ー す る 背景 を 利用 可能 で す 。WonderSwan 
で は , この 背景 を 表示 する た め の プ レー ン を , 2 枚 使う こと が で きま す 。 


《" 之 了 ワン ダー スワ ン の 画面 構成 


に 1 スプ ライ ト プ レ ー ン 


背景 
128 枚 2 枚 
各 プ レー ン に 各 プ レー ン に 、8X8 ド ッ ト の 
8X8 ド ッ ト の キャ ラク タ を 32X※X32 個 並べ て 
キャ ラク タ を 置く こと が で きる 
表示 で きる 
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we スプ ライ ト を 表示 し て みる 


それ で は , まず , スプ ライ ト を 表示 し て み ま し ょ う 。 


7 立 画像 デー タ の 作成 


スプ ライ ト を 表示 する た め に は , 8X8 ド ッ ト の 画像 を 用 意 し , 表示 用 の デー タ に 変 
換 し な けれ ば な り ま せん 。 

この 作業 に は , WonderWitch 付 属 の ツー ル “bmpcnv.exe” を 使い ます 。 第 1 章 で 用 意 
し た 作業 用 ディ レク トリ の MS-DOS8 プ ロン プ ト 上 で , 


> bmpCn ざ 


を 実行 し , bmpcnv.exe が 利用 可能 で ある こと を 確認 し て くだ さい 。 利 用 可能 で あれ ば , 


Freya 1maqe resourCe Converter Version 1.10 (c) 2000 Qute Corp・ 
usage: bmpcnv [-p<pa1> | - 上 <type> | -d<1d> | -e] <bmp file(.bmp)> [res file(.fr) ] 
bmpcny -c[format file] <bmp file(.bmp)> [output file(-h) ] 
と いっ た 具合 に , メッ セー ジ が 表示 され ます 。 
使用 で きる こと を 確認 し た ら , bmpcnv.exe を 実行 する ディ レク トリ に , フォ ー マ ッ 
ト 定義 ファ イル (List 2-1) と , 変換 し た い 画像 ファ イル を 用 意 し ます 。 今後 も 
bmpcnv.exe を 使っ て 画像 を 変換 する と き に は , フォ ー マ ッ ト 定 義 フ ァイル が 必要 で す 
の で 注意 し て くだ さい 。 


List2-1 フォ ー マ ッ ト 定 義 フ ァイル "format" 


#define ss width $Qd 
#define ss height も Qd 


uns1gned Ss bmp ss[] = { 


変換 で きる 画像 ファ イル は , 256 色 形式 の bmp フ ァイル で , 白 , 黒 , 灰 2 種 の 4 色 で 措 
か れ て いる こと が 前 提 人 条件 に な り ま す 。 し た が っ て , フル カラ ー で 描か れ た 画像 や , 
jpeg 形 式 の 画像 な ど は , その まま で は 変換 で きま せん 。256 色 形式 の bmp フ ァイル は , 
Windows 付 属 の ペイ ント な ど で 作 成 が 可能 で す 。 作成 し た 画像 を 保存 する 時 に , 256 色 


30 誠 第 2 章 な ぜ な に ワン ダー ウィ ッ チ 画面 編 


(8 ビッ ト ) の bmp フ ァイル と し て 保存 する こと に だ け 気 を つけ て くだ さい 。 
1 つの スプ ライ ト の 単位 は 8X8 ド ッ ト な の で , ここ で は , 8X8 ド ッ ト の 大 きき の bmp 
ファ イル (Fig.2-3) を 用 意 し ます 。 


ミド 削 変換 し た い 画像 ファ イル “maru.bmp" 


準備 が で きた ら 


> bmpCn -C maru.Dmp 


を 実行 し ます 。 す る と mmaru.h (List 2-2) が 生成 され ます 。 


List2-2 maru.h 


/ 
#deFine maru width 1 
#define maru height 1 


unS1gned Short bmp maru[] = { 
0x3C3C, Ox7E42, OxDEFA1, 0xBEFC1, OxBFC1, OxEFF81, 0x7E42, 0x3C3C, 


この ヘッ ダフ ァイル に 出力 され た bmp maru[] が , WonderWitch で の 表示 用 デー タ 
に な り ま す 。 


し = ニー 
スプ ライ ト を 表示 する プロ グラ ム 
maruh の デー タ を 使っ て , スプ ライ ト の 表示 を 行う サン プル プロ グラ ム が , test1l.c 


(List 2.3) に な り ま す 。 
maruh と と も に 作業 ディ レク トリ に 思 き 


> 1cc86 -o est1 .bin Etes1 . で 


で コン パイ ル し , WonderWitch に 転送 し て 実行 し て くだ さい (Fig.2-4) 。 
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且 全 test1.bin の 実行 画面 
弄 


。 List2-3 test1.c 


#1nc1ude < く syS/bios .h> 
#1nclude "maru.h" 


Void main() { 
unsigned char x =0,y= 0: 


人 E る 


/* スプ ライ ト の み を 表示 (背景 プレ ー ン 非 表示 ) */ 
disp1ay contro] (DCM SPR) 


/* スプ ライ ト プ レ ー ン 番号 0 番 か ら 1 個 の み ( つ まり 0 番 の み ) を 表示 */ 
Sprite set range(0, 1) ょ 


/* maru.h の デー タ を キャ ラク タ 番 号 0 番 か ら 1 個 分 登録 
(つま り , キャ ラク タ 番 号 0 番 に maru が 登録 され る ) */ 


font set co1ordata(0, 1, bmp maru) 


/* maru.h を 表示 する た め の パ レッ ト を パレ ッ ト 番 号 12 番 に 設定 */ 
palette set co]or(12, Ox7300): 


/* スプ ライ ト プ レ ー ン 番号 0 番 に , 12 番 の パレ ッ ト で , 0 番 キ ャ ラク タ を 乗せ る */ 
Sprite se char(0, CFM SPR UPPER | (12 - 8) * Ox200 | 0): 


/* スプ ライ ト プ レ ー ン 番号 0 番 を , 座標 (x,y) に 移動 する */ 


Sprite set 1ocation(0, x, yY) 


/* START ボ タン が 押さ れる まで 無限 ルー プ */ 
while(1) { 
1 = key preSsS checCk() : 
1f(1 & KEY START) 
break: 


} 


ーー デ 


32 恩 第 2 章 な ぜ な に ワン ダー ウィ ッ チ 画面 編 


=3 交 プロ グラ ム の ポイ ント 
用 意 し た キャ ラク タ を スプ ライ ト と し て 表示 する た め に は 


① ス プラ イト を 表示 状態 に 設定 する : disp1ay_contro1 ( ) 

② 表 示す る スプ ライ ト プ レ ー ン の 範囲 を 番号 で 指定 : spcite_set_range( ) 

③ 表 示す る 画像 の デー タ を キャ ラク タテ ー ブ ル に 登録 : Eont_set_co1ordata ( ) 
④ 表 示 に 使う パレ ッ ト を 設定 : palette_set_co1or ( ) 

⑤ 登 録 済み の キャ ラク タ を スプ ライ ト プ レ ー ン に の せる : sprite_set_char( ) 
⑥: ス プラ イト を 表示 し た い 位置 に 移動 させ る : sprite_set_1ocation ( ) 


と いっ た 関数 を 呼ぶ 必要 が あり ます 。 個々 の 関数 の 詳細 に つい て は , 次 ペー ジ の 
Function 2-1 や マニ ュ ア ル な ど で 確 認 し て お いて くだ さい 。 

ここ で 注意 が 必要 な の は , 画像 が 直接 スプ ライ ト プ レ ー ン に 描か れる (関連 付け ら 
れる ) の で は な く , 一 旦 , キャ ラク タテ ー ブ ル (キャ ラク タ 番 号 で 管理 され る 場所 ) 
に 登録 きれ て か ら , その テー ブル の 番号 と スプ ライ ト プ レ ー ン が 関連 付け られ る 仕組 
み に な っ て いる こと で す (Fig.2-5)。 

絵 の 描 か れ た カー ド を プー ル し て お いて , その カー ド を プレ ー ン に の せる わけ で す 。 
この 仕組 み は 直 感 的 で は な い の で , 理解 し づら いか も し れ ま せん が , 同一 の キャ ラク 
タ を 多数 表示 きせ る 場合 に は 効率 が よい の で す 。 実際 . ゲー ム に お いて , 同一 の キャ 
ラク タ を 多数 表示 させ る こと は 多い で す よ ね 。 

また ④ で 設定 し て いる 「 パ レッ ト 」| と は , 画面 表示 を 行う 際 に , あら か じ め 選 ん で 


衣 中 5 具 キャ ラク タテ ー ブ ル の 概念 図 


まわ 

| iR 
8X8 ド ッ ト の 
画像 の デー タ 


キャ ラク タテ ー ブ ル 
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お いた 人 色 を 使っ て 表示 を 行う 仕組 み の こ と で す 。WonderWitch で は , 4 色 を 登録 し て お 
ける パレ ッ ト を 8 本 , 3 色 十 透過 色 ( 遮 明 色 , 詳し く は p.44 で 解説 ) を 登録 し て お ける 
パレ ッ ト を 8 本 使う こと が で きま す 。 パ レッ ト に 登録 され た 色 は , 8X8 ド ッ ト の キャ ラ 
クタ ご と に パレ ッ ト を 指定 する こと で , 実際 の 画面 表示 に 使わ れ ま す 。 パ レッ ト に 登 
録 で きる 色 は , グレ ー ス ケー ル 16 階 調 か ら 選 ば れ た 8 色 か ら 選 べ ま す 。 複数 の パレ ッ ト 
を 使え ば , 8 色 ま で を 同時 発色 きせ る こと が 可能 で す 。 グ レー スケ ー ル 16 階 調 か ら 選 ば 
れ た 8 色 は , 特に 指定 を し な けれ ば , 黒 か ら 白 へ の 8 階 調 と な っ て いま す 。 


ワン ダー ウィ ッ チ で 使用 可能 な パレ ッ ト 


WonderWitch で 使用 可能 な パレ ッ ト ( 非 カ ラー) 


8 色 中 4 色 パ レッ ト ※8 8 色 中 3 色 十 稀 過 色 パ レッ ト ※X8 


K_ 中田 
K_ 画 還 


HIFHT 


※8 色 は グレ ー ス ケー ル 16 階 調 か ら 選 べ る 


Function 2-1 画面 表示 関連 の 関数 
Yo1d near disp1ay_ConE ェ o1 (unsigned 7aS) : 


引数 。 rf7ags: シン ボル (Table A) を 論理 和 で 結合 し た 値 
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機能 


画面 の 表示 設定 を 行い ます 。 


TableA flags の と る 値 


スプ ライ ト を 表示 状態 に 設定 。 設定 し な いと スプ ライ 
DCM SPR ト は 表示 きれ な い 


スク リー ン 1 を 表示 状態 に 設定 。 設定 し な いと スク リ 
ー ン 1 は 表示 され な い 
スク リー ン 2 を 表示 状態 に 設定 。 設定 し な いと スク リ 


上 


DCM SCR1 


DCM SCR2 


ー ン 2 は 表示 され な い 

スプ ライ トウ ィ ン ド ウ 失 能 を 有効 に 設定 。 設 定 す る と 

スプ ライ ト は sprite set windows() に よっ て , 別 

途 設定 され る 領域 内 だ け で 表示 され る よう に な る 

スク リー ン 2 ウ ィ ン ド ウ 機 能 を 有効 に 設定 。 設 定 する 

と スク リー ン 2 は screen2 set windows() に よっ て , 

別途 設定 され る 領域 内 だ け で 表示 され る よう に な る 

スク リー ン 2 ウ ィ ン ド ウ 機 能 を 有効 に 設定 。 設 定 する 

DCM SCR2 WITN OUTSTDE | と スク リー ン 2 は screen2 set windows() に よっ て , 
別途 設定 され る 領域 外 だ け で 表示 され る よう に な る 


DCM SPR WTN 


DCM SCR2 WTN 1NSTDE 


Yo1d near Spr1te_set_range (unS1tgned SD と ア 了 と G_S と a ア と と , 


引数 


機能 


unS81qmned SD ア 了 と ら G ご OO7 と ) : 


sprrre s と ar と : 0 一 127 の 債 
pr と e coun と た ・ Sprz と es と ar と と の 合計 が 128 以 下 の 値 


画面 に 表示 する スプ ライ ト を 指定 し ます 。 sprrte srart 番 目 の ス プラ イト か ら , 
sprite coon と 個 分 を 表示 状態 に し ます 。 指 定 さ れ な い ス プラ イト は 画面 に 表示 さ 
れ ま せん 。 ス プラ イト は 128 個 し か 使え な い の で , 指定 し た 値 が その 範囲 に 収まる 
よう に し な けれ ば な り ま せん 。 


Yo1d near Font_set_oo1ordata (unS1qgmned どり ja アァ の O, unS1tqdned C 罰 a と COu カ と / 


引数 


機能 


YoO1dQ far *a と a_ の ): 


cnar no・ 0 一 511 の 値 

cnar ooun と ・c れ nar no と の 合計 が 512 以 下 の 値 

*qa と a p:bmpcnv.exe に よっ て 得 ら れる , 1 キャ ラク タ (8X8 ド ッ ト ) あたり 16 
バイ ト の 画像 デー タ へ の ポイ ンタ 


キャ ラク タテ ー ブ ル に 画像 デー タ を 登録 し ます 。bmpcnv.exe に よっ て 得 ら れる , 8※ 
8 ドッ ト の 画像 デー タ の 並ん だ も の を , テー ブル の cjar no 番目 か ら , cnar coun と 
個 , 順番 に 登録 し ます 。 テ ー ブ ル に は 512 個 し か 登録 で き な い の で , 指定 し た 値 が そ 
の 範囲 に 収まる よう に し な けれ ば な り ま せん 。 テ ー ブ ル に 登録 し て いな いと , スプ 
ライ ト で あれ , 背景 で あれ , 画面 に 表示 する こと が で きま せん 。 
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Yo1d near pa1ete_set_Co1or (urmS1qgrnedQ り a7 ら 6 と と G_ ロ O, umS1qmed CO7O ア 8) : 


引数 。 pa7ecre no:0-15 の 範囲 の パレ ッ ト 番 号 
corors * 4 階 調 の 各色 を , 7 色 の どれ を 使っ て 表示 する か 設定 する 。16 進 数 表記 時 の 
各 桁 に , 色 番号 と し て 有効 な 0ー7 を 与え る 


機能 。 表示 に 必要 な パレ ッ ト を 設定 し ます 。16 個 の パレ ッ ト そ れ ぞ れ に , 4 階 調 の 画像 デー 
タ の 各階 調 を , いか な る 色 で 表示 する の か を 設定 で きま す 。 パ レッ ト は 0 一 7 まで が 
背景 専用 , 8-15 が 背景 スプ ライ ト 共 用 と な っ て いて , 4~7, 12 一 15 の 1 階 調 目 
(通常 の 画像 で は 白 の 部 分 ) は , 無 条件 で 透過 色 (その 下 に 表示 され て いる も の が 透 
け て 見 える ) に な り ま す 。 


Yo1d near SDr1te_se_char (uns1gmeQ SD アエロ の, umS1qrmeGd ご C カ a ア と ga と ga) : 


引数 。 spzrize no:0 一 127 の 範 胃 の スプ ライ ト 番 号 
cnar data:「sprrEe no で 指定 し た スプ ライ ト に の せる 8X8 ド ッ ト の キャ ラク タ 
の , キャ ラク タテ ー ブ ル 上 で の 番号 (必須 )」, 「 表 示 に 使用 する パレ ッ ト 番 号 か ら 8 
を 引き 9 ビッ ト 左 ヘ シ フト し た 値 (必須 )」, 「 シ ン ボ ル (Table B)」 を 論理 和 で 結合 
し た 値 


機能 | 指定 スプ ライ ト sprzte no に , 指定 番号 の キャ ラク タ を 指定 の パレ ッ ト で 描き , 画 
面 に 表示 可能 な 状態 に し ます 。 そ の スプ ライ ト が 表示 状態 で あれ ば , 結果 は , すぐ 
に 画面 に 反映 され ます 。 


TableB char_data の と る 値 


CFM FLIP V キャ ラク タ を 縦 方 向 に 反転 

CFM FLTP H キャ ラク タ を 横 方 向 に 反転 

スク リー ン 2 よ り 手 前 に 表示 。 設 定 し な いと , スク リー ン 2 を 
表示 し た 場合 , スプ ライ ト が 隠れ て し まう お それ が ある 
スプ ライ トウ ィ ン ド ウ 機 能 が 有効 な 場合 に 設定 する と , 知 形 
領域 の 外側 で スプ ライ ト が 表示 され る 。 ス プラ イト ウィ ンド 
ウ 機能 が 有効 で 設定 し な い 場 合 , 知 形 領 域 の 内 側 で スプ ライ 
ト が 表示 され る 


CFM SPR UPPER 


CFM SPRWTN CLTP 


Vo1d near Spr1te_se_1ocatiorn (unS1gned SO けた と @_ no, 1nE 。 nm も ッ ): 
引数 | spzzEe no: 0 一 127 の 男 囲 の スプ ライ ト 番 号 
*・ 0 一 255 の 範囲 で x 座 標 を 指定 
y: 0~255 の 範囲 で y 座 標 を 指定 
機能 。 指定 し た スプ ライ ト の 表示 位置 を , 座標 (x, y) に 変更 し ます 。 


これ ら の 関数 は すべ て <sys/disp.h> に 定義 され て いま す 。 <sys/disp.h> は <sys/bjos._h> に よっ て も イ 
ンク ルー ド さ れ ま す 。 
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7 立 : 表示 し た スプ ライ ト を 動か す プ ログ ラム 


testl.c (List 2-3) を 少し 改造 すれ ば , 画面 上 を maru.bmp が 動き 回 る よう な プロ グラ 
ム test2.c (List 2-4) を 簡単 に 作る こと が で きま す 。 


List2-4 test2.c 


#1nC1ude <std1ib .h> 
#1inc1ude <sys/bios .h> 
#1nclude "maru.h" 


vo1d main() { 
Static unsigned char x[128] , y[128]: 
出 mE 過 め 癌 2 


/* 表示 用 初期 設定 */ 

display contro1] (DCM SPR) : 
Sprite se range(0, 128): 

font se Co1ordata(0, 1, bmp maru) : 
palette se co1or(12, Ox7300) 


srand(0): 


/* 128 個 の maru.bmp を ラン ダム な 位置 に 表示 */ 
for(1 = 0z: 1 < く 128: i++) 人 { 


X[1] = ((unsigned char) rand()) も 216: 
Y[i] = ((unsigned char) rand()) も 136: 
Sprite se 上 char(+1, CFM SPR UPPER | (12 - 8) * 0x200 | 0): 


Sprite set 1ocation (1, x[i] , y[i]): 


スプ ライ ト を 表示 し て みる 十 3Z 


while(1) { 
/* 128 個 の maru.bmp を ラン ダム に 移動 */ 
FoP (1 ラテ 0! きく 1297 ミキ ャ ) # 
) = rand() 5 7 - 3: 
if(xli] +) く 0) 


届 入 過 おま 
e1se 
x[i] += ] 
) = rand() も 7- 3 
ゃ ECyiItT キヨ ぐ .0) 
Y[i] = 0: 
else if(y[i] + ] > 136) 
y[i] = 136: 
ら JS@ 
YIi] += ]: 


sprite set 1ocation(1, [1], y[1i] ): 
1 
/* START ボ タン で 終了 */ 
1 = key Dress Check() 
1f(1 & KEY START) 


break: 


3 背景 を 表示 し て みる 


次 に , 背景 を 表示 し て み ま し ょ う 。 

WonderWitch に お ける 背景 は , Fig.2-8 の よう に , 256X256 ド ッ ト の 領域 に 8X8 ド ッ 
ト の キャ ラク タ を 32X32 個 敷き 詰め て 構成 し ます 。 実際 に 准 晶 画面 上 で 見 える 男 囲 は 
224X144 ド ッ ト な の で , 見 えな い 部 分 は 必要 な い の で 使わ な いよ うに する か , 何 か を 
描い て お いて スク ロー ル さ せ て 使う と いっ た こと を , 自分 で 考え て 設計 する 必要 が あ 
り ま す 。 
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: 仁 背景 と 液晶 画 


面 上 で 見 える 範囲 の 関係 


レン 9 (224 ド ッ ト ) 


18 (144 ド ッ ト ) 


32 (256 ド ッ ト ) 


32 (256 ド ッ ト ) 
| 背景 領域 全体 の うち の 一 部 が 、 画 面 上 に 表示 され る 
| 隠れ て いる 部 分 も 背景 の スク ロー ル に よっ て 表示 で きる 


音 景 用 の プレ ー ン は , スク リー ン 1, 


スク リー ン 2 の 2 枚 が 用 意 さ れ て お り , スク リー 
ン 2 は , スプ ライ ト の 上 に 被せ る こと が で きま す 。 重ね て 表示 する 方 法 を 試行 錯誤 する 
こと で , さま ざま な 演出 効果 を 得 ら れ ま す 。 
溢 : 画 ー タ の 作成 


朋 景 を 表示 する 場合 も , まず は 画像 デー タ を 用 意 す る こと か ら 始 め ま す 。 ス プラ イ 
ト の と き と 同 じ 画 像 形式 で 用 意 し た inu.bmp (Tig.2-9) 


テ 
で 


bmpcnv.exe で 変換 し ます 。 
する と , 8X8 ド ッ ト を 1 単位 と し た キャ ラク タ , 28X18 個 分 の デー タ が 得 ら ちら れ ます 。 


人 mubmp 
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inu.h 内 の bmp inu[] の 大 き さ を 確認 する と , maru.h (List 2-2) の と き の 28X18 倍 
に な っ て いる こと が わか り ま す 。 こ こ で 得 ら れ た 8X8 ド ッ ト の キャ ラク タデ ー タ を , 
背景 の し か る べき 場所 に 配置 すれ ば , inu.bmp を WonderWitch 上 で 表示 で きま す 。 


: 立 育 景 を 表示 する プロ グラ ム 


この デー タ を 使っ て , 背景 に 1 枚 絵 を 表示 する サン プル プロ グラ ム が , test3.c (List 
2-.5) に な り ま す 。 コ ン パ イル し , WonderWitch に 転送 し て 実行 し て みて くだ さい 。 


List2-5 test3.c 


#1nc1ude <std11ib.h> 
#1nc1ude <syS/Dios .h> 


#1nclude "inu.h" 


/* 配列 は グロ ー バ ル も し く は static で 宣言 する */ 
uns1gned short cmap[28] [18]: 


void main() { 


さき 回 も す 。 呈 。 > 


/* スク リー ン 1 の み を 表示 */ 
disp1ay contro1 (DCM SCR1 ) : 


| /* inu.h の デー タ を キャ ラク タ 番 号 0 番 か ら 28X18 個 分 (液晶 画面 1 枚 分 ) 登録 */ 


Font set co1ordata(0, 28 * 18, bmp inu) : 


/* cmap[]1 に キャ ラク タ 配 置 情報 を 作成 */ 
for(1i = 0, k = 0z 1 < く 28: i++) 
の (3 き 0: で 183 | 寺下 / K 半 す ) 
[i 中 呈 . 汰 : 


cmap fi] [] 
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/* 登録 し た キャ ラク タ を スク リー ン 1 上 の ある べき 位置 に 配置 */ 
Screen se char(SCREEN1, 0, 0, 28, 18, cmap) : 


/* START ボ タン が 押さ れる まで 和 無限 ルー プ */ 
while(1) { 
せ Key Bess Check() 
1fF(1 & KEY START) 
Dreak: 


1 


=3 交 プロ グラ ム の ボイン ト 
用 意 し た 画像 デー タ を 表示 する た め に は 


① ス クリ ー ン 1 を 表示 状態 に 設定 する : qisp1ay_contro1 () 

② 画 像 デー タ す べ て を キャ ラク タテ ー ブル に 登録 : Font_set _co1orqdaa ( ) 
③ ス クリ ー ン 1 上 で の キャ ラク タ の 配置 情報 を 作成 

④ 作 成 し た 配置 情報 に 従っ て スク リー ン 1 に キャ ラク タ を の せる : 


SCreen_ Set_ochar ( ) 


と いっ た 関数 を 利用 し 処理 を 行う 必要 が あり ます 。 個々 の 関数 の 詳細 に つい て は , 
Function 2 2 や マニ ュ ア ル な ど で 確 認 し て お いて くだ さい 。 

配置 情報 の 作成 で は , 元 の 画像 の 大 き さ で ある 28X18 個 の 領域 に キャ ラク タ を 並べ 
る よう に 妖 理 を 行っ て いま す 。 


224X144 ド ッ ト の 


元 の 画像 を 8X8 ド ッ ト 画 像 で キャ ラク タテ ー ブ ル 
28X18 個 の キャ ラ に 登録 
クタ に 分 解 し 


登録 し た も の を 

き 景 上 の 28X18 
の 領域 に 順番 に 
並べ て 置く と ーー 


WonderWitch 上 で 画像 を 表示 で きる 
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Function 2-2 背景 に キャ ラク タ を 配置 する 関数 


void near soreen_Set_char (1n Screen, 1nE x, 1n キ , in ww, nt ち , 


引数 


機能 


YO1Q Far * メ aa の ): 


screen : SCREEN1, SCREEN2 の いずれ か 
x・ 0 一 31 の 値 

ァ *: 0 一 31 の 値 

wi x と の 合計 が 32 以 下 の 値 
np: y と の 合計 が 32 以 下 の 値 
*qa と a p・ 18X8 ド ッ ト の キャ ラク タ の , キャ ラク タテ ー ブ ル 上 で の 番号 (必須 )」, 
[表示 に 使用 する パレ ッ ト 番 号 を 9 ビッ ト 左 へ ヘ シ フト し た 値 (必須 )」,「 シ ン ボ ル 
(Table A) | を 論理 和 で 結合 し た 2 バイ ト の 値 


指定 し た 硝 景 の 指定 し た 領域 に , 指定 の キャ ラク タ を 指定 の パレ ッ ト で 配置 し ます 。 
その 背景 が 表示 状態 で あれ ば , 結果 は すぐ に 画面 に 反映 され ます 。 領域 は , 8X8 ド 
ッ ト の キャ ラク タ 単 位 で (xy) の 位置 か ら ( ヵ ヵ ) の 大 き さ の 知 形 領域 が 対象 と 
な り ま す 。 表示 する キャ ラク タ の デー タ は , 並べ る 順に , 2 バイ ト の 値 で 用 意 し ます 。 
各 デ ー タ に は , キャ ラク タ 番 号 , 使用 パレ ッ ト 番 号 , 垂直 水平 反転 の 情報 を も た せ 
る こと が で きま す 。 


TableA  *data_ p の と る 値 


CEM FLrp V | キャ ラク タ を 縦 方 向 に 反転 


CFM ELTP 昌 H キャ ラク タ を 横 方 向 に 反転 


この 関数 は <sys/disp.h> に 定義 され て いま す 。<sys/disp.h> は <sys/bios.h> に よっ て も イン クル ー ド 


され ます 。 


: 仙 理奈 を スク ロー ル す る プロ グラ ム 


screen set scro11 () を 使え ば , test4.c (List 2-6) の よう に 背景 を スク ロー ル さ 
が で きま す 。 


せる こと 
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List2-6 test4.c 


#1nc1ude <std]ib.h> 
#inc1ude <sys/bios .h> 


#1nc1ude "inu.h" 
unsigned short omap[18] [28]: 
void main() { 
unsigned char x =0,y= 0O: 
Bi 
disp1ay contro1 (DCM SCR1 ) : 


/* キャ ラク タテ ー プ ブル に 登録 */ 
font set co1ordata(0, 28 * 18。, bmp 1nu) : 


/* 表示 用 の 配置 情報 作成 ょ / 


For(1i = 0 1 く 28: ュ ++) 


for(] = 0z ] < く 18: ]++) 
cmap[]][1] = ュ +]* 28: 
/* 表示 */ 


Screen se Char(SCREEN1, 0, 0, 28, 18, cmap) : 


/* 背景 を 斜め に スク ロー ル , sTART ボ タン で 終了 */ 
while(1) { 

オオ ょ 

Y† サ と 

SCreen Se scCrol] (SCREEN1, x, ) 

for(1 = 0: 1 く 5000z ュ ++) 

1 = key press oheck () : 

(1 & KEY START) 


break: 


Function 2-3 背景 を スク ロー ル す る 関数 


Yoid near soreen_Se_soro11 (1n SC と reen, 1nt ァ , 1nE T): 


引数 "screen:SCREEN1, SCREEN2 の いずれ か 
ァ *: 0 一 255 の 値 
0 て 255 の 値 
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ョ ピ 旦 - 


後 能 ′ 指定 し た 硝 景 を , 指定 座標 分 だ けず らし て 表示 し ます 。 こ の 関数 に よっ て , 背景 の 
スク ロー ル が 実現 で きま す 。 現在 の 表示 位置 か ら の スク ロー ル 量 を 指定 する の で は 
な く , 表示 画面 の 原点 か ら の ズレ を 与え る こと に 注意 し て くだ さい 。 し た が っ て 
- 般 的 な スク ロー ル 処 理 を 行う た め に は , 現在 の 背景 の 表示 位置 を , 変数 で 管理 し 
て お く 必 要 が あり ます 。 


この 関数 は <sys/disp.h> に 定義 され て いま す 。<sys/disp.h> は <sys/bios.h> に よっ て も イン クル ー ド 
され ます 。 


5 パレ ッ ト を 利用 する 


本 来 な ら ば 背景 を 利用 する と きも , スプ ライ ト の と き と 同 様 に , 表示 に 使用 する パ 
レッ ト の 作成 が 必要 に な り ま す 。 な ぜ 背 景 を 表示 する プロ グラ ム (List 2-5, List 2-6) 
に パレ ッ ト を 作成 する 処理 が な い の か と いう と , WonderWitch 上 で の プロ グラ ム で は , 
その 起動 時 に shell (標準 で は Meg) の 設定 を 一 部 引き 継ぐ ので, その Meg の 0 番 パ レッ 
ト の 設定 を その まま 流用 し て いる か ら で す 。 

WonderWitch で は shel を 取り 茜 え られ る の で , List 2-5 や List 2-6 が 他 の shel か ら 呼 び 
出さ れ た と きも , 同様 に 動作 する と は 限り ませ ん 。 で すか ら , 他 の 人 に 配っ た りす る 
プロ グラ ム を 作る と き は , きち ん と パレ ッ ト を 設定 し た ほう が よい で し ょ う 。 また, 
WonderWitch で は , 自分 で 設定 し て いな い 各 種 設定 が 常に 0 で クリ ア さ れ た 状態 だ と は 
限ら ない ので , こち ら に も 少し 注意 が 必要 で す 。 


7 立 : 透過 色 を 利用 し た プロ グラ ム 


test5.c (List 2-7) は , スク リー ン 2 に 透過 色 を も っ た 4 番 パ レッ ト を 設定 し , スク ロ 
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ー ル する スク リー ン 1 と 重ね て 表示 し た も の で す 。 箕 過 色 と は , その プレ ー ン の 下 に あ 
る 他 の プレ ー ン が その まま 表示 され る 部 分 の こと で , プレ ー ン を アニ メ の セル に 見 立 
て る と , 何 も 描い て いな い の で 穫 明 に な っ て いる 部 分 の こと で す 。 


test5.c 


#1incClude < く std11ib .h> 
#inc1ude <sys/bios .h> 


#inc1ude "inu.h" 


unsigned short cmap[18] [28]: 


void main() { 
unsigned char x =0, y = 0: 


nm も は 12 


disp1ay contro1 (DCM SCR1 | DCM SCR2) 
font set co1ordata(0, 28 * 18, bmp inu) : 


/* スク リー ン 1 に 表示 */ 
for(1 = 0z 1 < 28: 1++) 
for(] = 0 ] < 18: コ ++) 
cmap[]][1] = ュ + ] メメ 28: 
SCreen Set char(SCREEN1, 0, 0, 28, 18, cmap) : 


/* スク リー ン 2 用 に 透過 色 を も っ た パレ ッ ト を 作成 */ 
palette set co1or(4, 0x7420): 


/* 作成 し た パレ ッ ト を 使っ て スク リー ン 2 に 表示 */ 
for(i = 0z: 1 < 28: ユ ++) 
for(] = 0 ] < 18: ]++) 
cmap[]][i] = (+]* 28) | (Ox200 * 4): 
Screen se char(SCREEN2, 0, 0, 28, 18, cmap) 


/* スク リー ン 1 を スク ロー ル , START ボ タン で 終了 */ 
while(1) { 

メオ イオ: 

ku 

Screen Se scro11 (SCREEN1 。 x, Y): 

for(t =0: エ く < 5000: ュ ォ キ ) 』 

1 = key press oheck() 

1f(1 & KEY SFART) 

break: 
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疫 キャ ラク タテ ー ブ ル の 大 き さ 


キャ ラク タテ ー ブ ル に は , 512 個 し か キャ ラク タ を 登録 で きま せん 。 で すか ら , 液晶 
画面 表示 領域 に 相当 する 28X18 三 504 個 の キャ ラク タ を 登録 する と , ほぼ 埋まっ て し ま 
いま す 。 大 き な 1 枚 絵 を 表示 する と , 簡単 に キャ ラク タテ ー ブ ル を 使い 切っ て し まう の 
で , 注意 が 必要 で す 。 景 に キャ ラク タ を 32X32 個 貼り つけ られ る と いっ て も , その 
すべ て を 異な る キャ ラク タ に する こと は で き な い の で す 。 


2 文字 を 表示 し て みる 


画面 上 に 表示 する の は 絵 素 材 だ け で は あり ませ ん 。 文字 を 表示 し た い 場 合 も あり ま 
すね 。 

WonderWitch は , ANSI CO に お ける コン ソー ル 画 面 を も っ て いま せん 。 それでは, ど 
の よう に 文字 を 表示 する か と いう と , 8X8 ド ッ ト で 表現 され る 文字 の 形状 デー タ ( フ 
ォ ン ト デ ー タ ) を キャ ラク タ と し て 背景! 上 MV GE の 0 
の で , それ を 利用 する の で す 。 日 本 語 で 使用 する 文字 も 使え る よう に な っ て いま す の 
で , 漢字 仮名 混じり の 文章 を 表示 する こと が で きま す 。 


人 人 ae 
垢 。 文字 を 表示 する プロ グラ ム 
第 1 章 の 「Hello,World.」 (p.20)0 と ほぼ 同じ で す が , 画面 上 に 漢字 仮名 混じり の 文字 


列 を 表示 する サン プル プロ グラ ム が , test6.c (List 2-8) に な り ま す 。 コ ロン パイ ル し , 
WonderWitch に 転送 し て 実行 し て みて くだ さい 。 


仁 党 ) test6.bin の 実行 画面 


あい うえ お 了 か か きく け こ さ 上 EBIOIGE Rd 


は は He 


| 
# 
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List2-8 test6.c 


#1nc1ude <stdio.h> 
#1nc1ude <strind.h> 
#inc1ude <sys/bios .h> 


void main() { 
5 gp 
statio char str[21]: 


/* スク リー ン 2 の み を 表示 */ 
display contro1 (DCM SCR2) 


/* テキ スト 表示 の 初期 化 , スク リー ン 2 が テキ スト 表示 対象 に な る */ 
text screen init()』 


/* テキ スト の 表示 */ 
text put string(0, 0, "あい うえ お か きく け こ さしすせそ り ") : 
text put string(15, 0, "た ち つ て と な に ぬ ね の は ひ ふ へ は ほ ") : 
text pu string(0, 2, "1234567890ABCDEfghi]") : 
text put string(0, 3, 

" 観 自在 基隆 行 深 和 若 波 明 密 多 時 照 見 五 間 皆 空 度 一 切 苦 厄 ") : 
strcpy(str, "アイ ウエ オカ キク ケ コ ")』 
text put string(0, 4, st と ) : 


/* START ボ タン が 押さ れる まで 無限 ルー プ */ 
while(1) [ 
1 = Key DreSS CheoK() 
1f(1 & KEY START) 
break: 
SpPrintf (str, "1 = 504xW。 1)』 
text put strinq(0, 5, str) 


閥 プロ グラ ム の ボイン ト 

英 数 字 以 外 に も , 仮名 や 漢字 が 表示 で きる こと が 確認 で きま す 。 プ ログ ラム 中 で , 
strzX ( ) 関数 群 や sprintFfF () な ど で 動 的 に 生成 され た 文字 列 も , 問題 な く 表 示す る 
と 7 でき ます 。 

文字 の 表示 を 行う に は 


文字 を 表示 し て みる 4Z 


① ス クリ ー ン 2 を 表示 状態 に 設定 する : disp1ay_contro1 ( ) 
② テ キス ト 表 示 の 初期 化 を 行う : text_screen_init () 
③ テ キス ト を 表示 する : texxt_put_strtng( ) 


と いっ た 関数 を 呼ぶ 必要 が あり ます 。 個々 の 関数 の 詳細 に つい て は , Function 2-4 や マ 
ご と ュ ア ル な ど で 人 確認 し て お いて くだ さい 。 

WonderWitch に お ける 文字 表示 は , キャ ラク タテ ー ブ ル の 特定 の 領域 と , 背景 画面 
上 の 特定 の 位置 を 1 対 1 で 対応 は きせ, キャ ラク タテ ー ブ ル 上 の 登録 キャ ラク タ を 変え る 
と , 画面 に 反映 され る と いう 仕組 み に な っ て いま す 。 こ れ は 背景 画面 に 1 枚 絵 を 表示 す 
る 場合 と , 基本 的 に 同じ こと を や っ て いま す 。 し た が っ て , 詳細 な 設定 な し に 初期 化 
を 行い , 液晶 画面 全体 を テキ スト 表示 領域 と し た 場合 , テキ スト 表示 の た め に 28X 
18 三 504 個 分 の キャ ラク タテ ー ブ ル が 必要 に な っ て し まい ます 。 つ まり , 何ら か の 解決 
策 を 考え な い 限り , 1 枚 絵 の 上 に テキ スト を 被せ て 表示 する 「 ノ ベル 」 型 の 画面 構成 は 
香 計 かい と WW うこ と で す 。 


Function 2-4 テキ スト 表示 関連 の 関数 
void _ near text creen 1n ュ モ () : 


村 態 スク リー ン 全 体 を テキ スト 表示 用 に 初期 化し ます 。 デ フォ ルト で は スク リー ン 2 が テ 
キス ト 表 示 用 に 初期 化 さ れ ま す 。 こ の 初期 化 に よっ て , テキ スト 表示 用 の 背景 が 表 
示 状態 に な り , 背景 の 液晶 表示 領域 相当 分 に , 8 番 か ら 511 番 の キャ ラク タ が 敷き 詰 
め ら れ て 表示 され た 状態 と な り ま す 。 こ の た め , 8~-511 番 の キャ ラク タ に 登録 を 行 
うと , その キャ ラク タ が 即座 に 画面 に 表示 され ます 。 


nt near ext_Du_8string(inE テ , 1n 隊 , char Far *S{ 了 と) : 


引数 = x:0 一 27 の 値 
ァ : 0 一 17 の 値 
*s を と ・ 文字 列 


返信 | 実際 に 表示 し た 文字 数 
和 能 | テキ スト 表示 設定 の 行わ れ た 背景 の 指定 座標 に , 与え られ た 文字 列 を 表示 し ます 。 


文字 の 大 き さ が 8X8 ド ッ ト な の で , 画面 上 に は 28 文 字 18 行 の 表示 が 行え ます 。y で 何 
行 目 , x で 何 文字 目 か ら 表 示 を 行う か を 指定 し ます 。 


これ ら の 関数 は <sys/text.h> に 定義 され て いま す 。<sys/text.h> は <sys/bios.h> に よっ て も イン クル ー 
ド さ れ ま す 。 
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江 訪 上 文字 表示 時 の キャ ラク タテ ー ブ ル の 使わ れ 方 の 概念 較 


28X18 個 
511 ] 
キャ ラク タテ ー ブ ル 


と 到 志 8 
登録 する と 
表示 され る 


- 


回 回 鈴 田 了 田 固 
賠 賠 國 園 圏 園 賠 


|…511 


文字 表示 スク リー ン 
画面 に 表示 され る 部 分 の み ) 


画 


キャ ラク タテ ー ブ ル の 8 番 か 
ら 511 番 まで を 文字 表示 スク 
リー ジン に 並べ る 置く 3 こ と に 
な る 。 

(0, 0) の 位置 に 文字 「 あ 」 を 
表示 し た けれ ば キャ ラク タテ 
ー ブ ル の 8 番 に フォ ント デー 
タ 「 あ | を 登録 する と 表示 さ 
れる 。 表示 したい 位 置 に 対応 
し た キャ ラク タテ ー ブ ル 位置 
に キャ ラク タ (文字 ) を 登録 
する と , 表示 が 行わ れる 。 


窓 画面 の 一 朗 に 文字 を 表示 する プロ グラ ム 


WonderWitch で は , 文字 を 表示 する 領域 を 0 は な 


1 に 文字 表示 を 行う よう に 初期 設定 する こと が で 


3 test7.bin の 実行 画面 


List2-9 test7.c 


#1nc1ude く stdio.h> 
#1nclude < く string.h> 
#inc1ude <sys/bios .h> 


#1nclude "inu.h" 


な 知 形 領域 に し た り 
- (Jist 2-9)。 
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,。 スク リー 


yo1d main() 【 
tuo 間 2 


8 も at} で Cha SEr[10]: 


disp1ay Contro1] (DCM SCR1 ) : 
tex se screen (SCREEN1 ) 


text scCreen 1n1()。 


/* テキ スト 表示 用 に 設定 され た 配置 情報 を 流用 し て 画像 を 表示 */ 
Font se col1ordata(8, 28 * 15, bmp inu) : 


/* 文字 も 問題 な く 表 示 で きる */ 
text put string(0, 15, "あい うえ お カキ ク ケ コ 東 京都 特許 許可 局 ") : 
text put string(0, 16, "1234567890ABCDEfghi]") 


whtle(1) { 
1 = key preSsS Check() 
1f(1 s KEY START) 


break: 
/* ボタ ン の 押さ れ た 状態 を 1e 進 4 桁 で 表現 */ 
SprintFfF (st 上 て, "1 = も 04x"/。 1) 


text pu string(0, 17, str) : 


3 役 プロ グラ ム の ボイン ト 

test7.c (List 2-9) で は , 少々 強引 で す が , スク リー ン 1 の み を 使っ て , 1 枚 絵 inu.h と 
文字 を 同時 に 表示 し て いま す 。 テ キス ト 表 示 ス クリ ー ン を 指定 する 場合 に は , 
text set screen () を 使用 し ます 。 画面 全 体 を テキ スト 表示 に 使う 場合 , 使用 する 
キャ ラク タテ ー ブ ル は 8 番 か ら 511 番 まで の 504 個 の 領域 に な り ま す 。 し た が っ て , 画像 
を 表示 する と き に も , 表示 し た い 位 置 に 対応 し た キャ ラク タテ ー ブ ル を 書き 換え て や 
れ ば , screen set ohar () を 使わ な く て も , 画面 表示 の 更新 が 行え ます 。 


Function 2-5 テキ スト 表示 に 用 いる 背景 を 指定 する 関数 
ゞ o1Q near 上 ex 上 _ set 上 _SCreen ( Ln 上 SC と らら ワ ) : 


引数 。 screen: SCREEN1, SCREEN2 の いずれ か 


機能 テキ スト 表示 に 用 いる 背景 を 指定 し ます 。text screen nit() の 前 に , この 関 
数 で 指定 を 行っ て お け ば , 指定 し た 背景 が テキ スト 表示 用 に 初期 化 さ きれ ます 。 


この 関数 は <sys/text.h> に 定義 きれ て いま す 。 し か し <sys/text.h> に は , SCREEN1、SCREEN2 の 定 
義 が な い の で , <sys/bios.h> の イン クル ー ド を オス ス メ し ます 。 
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: 立 : 恵梨 沙 フ ォ ント の 特徴 


WonderWitch で は , 画面 上 に ぎっ し り と 漢字 仮名 混じり 文 を 表示 させ る と , 少し 見 
づら く な り ま す 。 確か に フォ ント サイ ズ が 8X8 ド ッ ト と 小さ いこ と も る 原因 の 1 つ で す が , 
WonderWitch で 使用 し て いる 「 恵 梨沙 フォ ント 」 自体 に も 原因 が ある の で す 。 一 般 的 
な フォ ント で は , た と えば 16X16 ド ッ ト の フォ ント の 場合 , 実際 に は 15X15 ド ッ ト で 
文字 を 表現 する と いっ た よう に , 縦横 に 1 ドッ ト 幅 の マー ジン を も た せ て あり ます 。 こ 
の マー ジン の お か げ で , フォ ント を ぴっ た り と くっ つけ て 並べ て も , 文字 間 に 隙 間 が 
で き て 読み や すく な っ て いる の で す 。 し か し 恵梨 沙 フ ォ ン ト で は , フォ ント の 大 きき 
を 小さ くま と め る こと に 重点 が 置か れ て いる の で , この マー ジン が フォ ント の 中 に 含 
まれ て いま せん 。WonderWitch 上 で 文字 表示 に 重点 を お いた プロ グラ ム を 作成 する 場 
合 に は , この 問題 を 解決 する よう な 表示 方 法 を 考え る 必要 が あり ます 。 


GOGO の 0⑥ 


bmpcnv.exe に つい て 


・ 書 式 
> bmpcny [オプ ショ ン ] BMP ファ イル [変換 先 フ ァイル 名 ] 


オプ ショ ン : 

-c 旋 772g7206 C ソ ー ス 形式 へ の 変換 を 行い ます 

-t の e リソー スタ イプ を 英字 2 文字 で 指定 し ます 

-d リソー ス ID を 10 進 数 で 指定 し ます 

-e WonderWitch 転 送 形式 (. な ) の ファ イル を 出力 し ます 
-DZo/ パレ ッ ト カ ラー を 指定 し ます 

-Tm772Od@ リソー ス 形 式 の カラ ー 画 像 デー タ を 作成 し ます 


7207e の 値 
bit0 : 0= プ レー ン 形 式 , 1= パ ッ ク 形 式 
bit1 : 0=16 色 , 1=15 色 十 透 明 色 (パレ ッ ト #0) 


bmpcnv.exe は , bmp フ ァイル を 変換 し 、WonderWitch 上 で 利用 で きる キャ ラク タデ ー 
タ を 作成 する ソフ ト で す 。 与え られ た 画像 を 8X8 ド ッ ト の 領域 に 分 割 し . それ ぞ れ の 領 
域 ご と に 16 バ イト の キャ ラク タデ ー タ に し ます 。 デ ー タ の 並ぶ 順番 は , 左 か ら 右 へ , 上 
か ら 下 へ の 規則 に 従い ます 。 
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bmpcnv.exe が 出力 する ファ イル に は ,C ソ ー ス 形式 と ,。 リソー ス 形 式 の 2 種類 が あり ま 
す 。-c オ プシ ョ ン を 指定 する と C ソ ー ス 形式 で の 出力 を 行い , 指定 し な いと リソー ス 形 式 
で の 出力 を 行い ます 。 変換 先 フ ァイル 名 が 指定 され な い 場 合 は , C ソ ー ス 形式 が 指定 し て 
あれ ば 拡張 子 “".bmp” を “.h” に 置き か えた ファ イル 名 で ,、 リソース 形 式 が 指定 し て あ 
れ ば 拡張 子 “.bmp"” を “.fr” に 置き か えた ファ イル 名 で , それ ぞ れ 出力 され ます 。 

-c オ プシ ョ ン に は ,C ソ ー ス 形式 に 変換 する 際 の フォ ー マ ッ ト 定 義 ファ イル を 指定 する 
こと が で きま す が , ファ イル 名 を 省略 する と , カレ ント ディ レク トリ の ファ イル “format" 
が 参照 され ます 。 

-+。-d オ プシ ョ ン で は , リソー ス 形 式 の 場合 の ヘッ ダ 情 報 を 指定 する こと が で きま す が , 
意味 が わか ら な けれ ば 使用 する べき で は あり ませ ん し , 利用 する 必要 も な いで し ょ う 。 

同様 に . -s オ プシ ョ ン も , TransMagic.exe で 転送 を 行う 限り 必要 の な いも の と いえ ます 。 

-p オ プシ ョ ン で は 、 実際 に 表示 に 使う パレ ッ ト を 指定 し て や る こと で 、 使用 する パレ ッ 
ト に 応じ た デー タ へ の 変換 を 行い ます 。?g, の 指定 は , palette set col1or() で パレ ッ 
ト を 与え る 指定 方 法 と 同じ よう に 4 桁 の 数 値 を 与え ます 。-p オ プシ ョ ン の 指定 が な い 場合 
最も 明る い 色 に 相当 する ピク セル を 00 に , 最も 暗い 色 に 相当 する ピク セル を 11 に 対応 付 
け て 変換 が 行わ れ ま す 。 

-m オ プシ ョ ン は , bmpcnv.exe の バー ジョ ン 2.00 以 降 で 利用 で きる オプ ショ ン で , カラ 
ー 対 応 デ ー タ を 作成 する 場合 に . デー タ 形 式 を 指定 で きま す 。 カ ラー 対応 に 関し て は , 8 
章 を 参照 し て くだ さい 。 
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WonderSwan に は 内 蔵 の スピ ビー カー が 搭載 され て お り , ヘッ ド フ ォ ン を 接続 する こと 
も で きま す 。 そ れ ら を 使っ て , 音楽 や 音声 を 鳴ら すこ と が で きま すし , も っ と 単純 な 
音 も 出す こと が で きま す 。 

コン ピュ ー タ に お いて , 音 を 扱う 分 野 は あま り 多 く あ り ま せん の で , 音 を 鳴ら す プ 
ログ ラミ ング の 経験 が な い 人 も た くさ ん いる で し ょ う 。 実際 に は , 音 を 鳴ら すこ と が 
難し い の で は な く , 鳴ら す 音 を どの よう に 作成 する か が 難し い の で す が , 
WonderWitch で は , 音源 ドラ イ バ や ツー ル が すでに 用 意 き れ て いま す の で , 少し ラク 
が で きま す 。 


ワン ダー スワ ン の 音源 構成 


コン ピュ ー タ が 音 を 鳴ら す 音 源 と 呼ば れる シス テム は , 単音 を 鳴ら す チ ャ ン ネ ル を 
複数 も っ て いま す 。WonderSwan で は 4 チャ ン ネ ル を も つつ 音源 が 採用 きれ て いま す 。 こ 
れ ら の チャ ン ネ ル す べ て に , 出力 時 の 渡 形 を 設定 する 機能 が つい て いま す 。 

さら に , チャ ン ネ ル 2 に は 音声 サン プリ ング デー タ を 直接 出力 する ボイス 機能 ,. チャ 
ン ネ ル 3 に は 音 の 周波 数 を 周期 的 に 変化 させ る スウ ィ ー プ 機能 ・ チャンネル 4 に は ノイ 
ズ 音 を 発生 する ノイ ズ 機 能 が つい て いま す 。 こ れ ら の 機能 に よっ て チャ ン ネ ル 2 で 人 の 
声 を 再生 し た り , 曲 を 鳴ら す と き に チャ ン ネ ル 4 で ドラ ム の 音 を 表現 し た りす る こと が 
で きま す 。 こ うし た 構成 の 音源 で ゲー ム の BGM を 鳴ら す 場合 に は , 3 チャ ン ネ ル を 音程 
を と る 楽器 に , 1 チャ ン ネ ル を ドラ ム に 割り 当て , 8 重 香寺 ド ラム と し て 使用 する の 
が 一 般 的 で す 。 音 源 性 能 的 に は , 少し 高級 な 携帯 電話 機 相 当 だ と 考え て よい で し ょ う 。 


ワン ダー スワ ン の 音源 構成 


チャ ン ネ ル 1 チャ ン ネ ル 2 チャ ン ネ ル 3 チャ ン ネ ル 4 | 
音量. 波 有 財 流 数 | | 


54 誠 第 3 章 な ぜ な に ワン ダー ウィ ッ チ 音 編 


Wse 音 を 鳴ら し て みる 


まず は , 単純 に 音 を 出す こと を 試し て み ま し ょ う 。 


: 疫 チャ ン ネ ル 1 か ら 音 を 鳴ら す プ ログ ラム 


test8.c (List 3-1) で は , 音源 を 初期 化 の 後 , チャ ン ネ ル 1 を 使っ て , 音程 の 変化 し て 
いく 音 を 発生 きせ て いま す 。 音 を 発生 きせ る サン プル プロ グラ ム で す の で , 紙 の 上 で 
は 実行 の 様子 を 伝え られ ませ ん 。 コ ン パ イル し て 実行 し て みて くだ さい 。 チ ャ ン ネ ル 1 
の 周波 数 を プロ グラ ム 中 で 徐々 に 変化 させ , 音 が 高く な っ て いく よう に 作ら れ て いま 
す 。 


List3-1 test8.c 


#1ncClude <sys/b1os .h> 


#include "sounddef .h" 


void main() [ 
ko) 中 計 ] 


unsiqgned ] = 0』 


/* 波形 デー タ を 用 意 す る */ 
Static unsigned char wv[] = { 
3 和則 0KU4。 0Xke9。 coE。 Ok69。 Ox24 。 0x31.。 0e74。 
0xc9, Ox69, Ox24, Ox31, 0x74, 0x79, Ox34, Ox01 
) : 


/* 音源 を 使用 前 に 初期 化 */ 


Sound ini(): 


/* 各 チ ャ ン ネ ル の 使用 方 法 を 設定 */ 
Sound set channe1 (CHANNEL1 ON) 


/* 各 チ ャ ン ネ ル の 出力 方 法 を 設定 */ 
Sound Se output (SPEAKER ON | SPEAKER VOLUME 4): 


/* チャ ン ネ ル 1 に 用 意 し て お いた 波形 デー タ を 設定 */ 
SOund se wave(CHANNEL1, wv) : 
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/* チャ ン ネ ル 1 の 音量 を 設定 */ 
sound set Yo1ume (CHANNEL1, Oxff) : 


while(1) { 


EQE( は ニ 0O7 ユエ < 10007 1 キキ 5 


/* チャ ン ネ ル 1 の 周波 数 を 設定 */ 
Sound set pitch(CHANNEL1, ]++) : 


ュ = key presS check() 
1f(1 & KEY START) 


break: 
] 

] 
_List3-2 sounddef.h 
#ifndef SOUNDDEE H_ 
#define SOUNDDEF H_ 
#define CHANNEL1 ON Ox1 /* チャ ン ネ ル 1 の 出力 を 有効 化 */ 
#define CHANNEL2 ON Ox2 /* チャ ン ネ ル 2 の 出力 を 有効 化 */ 
#define CHANNEL3 ON Ox4 /* チャ ン ネ ル 3 の 出力 を 有効 化 */ 
#define CHANNEL4 ON Ox8 /* チャ ン ネ ル 4 の 出力 を 有効 化 */ 
#define VOTCE MODE 0x20 /* チャ ン ネ ル 2 の ボイス 機能 を 有効 化 */ 
#define SWEEP MODE Ox40 /* チャ ン ネ ル 3 の スウ ィ ー プ 機能 を 有効 化 ょ / 
#define NOTSE MODE Ox80 /* チャ ン ネ ル 4 の ノイ ズ 機 能 を 有効 化 */ 
#deFine SPEAKER ON 0x1 /* 本 体 ス ピー カー の 出力 を 有効 化 ょ / 
#deFine SPEAKER VOLUME 4 0  /* 大 き な 音 で 出力 する +*/ 
#deFine SPEAKER VOLUME 3 0x2 
#define SPEAKER VOLUME 2 0x4 
#deFine SPEAKER VOLUME 1 Ox6 /* 小さ な 音 で 出力 する */ 
#deFine HEADPHONE ON 0x8 /* 外部 ヘッ ド フ ォ ン の 出力 を 有効 化 */ 
#deFine CHANNEL1 0 
#define CHANNEL2 1 
#define CHANNEL3 2 
#define CHANNEL4 3 
#deFine NOTSE 1 0 /* ノイ ズ の 種類 */ 
#define NOTSE 2 1 
#define NO1SE 3 2 
#define NOTSE 4 3 
#define NOISE 5 4 
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#define NOTSE 6 5 

#define NOTSE 7 6 

#define NOTSE 8 7 

#define NOTSE COUNTER RESET Ox8 /* ノイ ズ カ ウン タ を リセ ッ ト */ 

#define NOTSE COUNTER ON Ox10  /* ノイ ズ カ ウン タ を 有効 化 ょ / 


#endif 


= 穴 プロ グラ ム の ボイン ト 
音源 を 用 いて 音 を 鳴ら す た め に は , 次 の 関数 を 呼ん で , 音源 自体 の 初期 化 や 各 チ ャ 
ン ネ ル の 初期 設定 が 必要 に な り ま す 。 
① 音 源 を 初期 化 : sound_init() 
② 各 チャ ン ネ ル の 使用 方 法 を 設定 : sound_set_channe1 ( ) 
③ 各 チャ ン ネ ル の 出力 方 法 を 設定 : sound_set_output ( ) 
準備 が 終わ っ た ら , 次 の 関数 を 呼ん で , 鳴ら し た いい チャンネル ご と に , 音量 , 波形 , 
周波 数 の 3 つ を 設定 すれ ば , 音 が 出力 され ます 。 
① チ ャ ン ネ ル ご と に 音量 を 設定 : sounq_set_yvo1ume ( ) 
② チ ャ ン ネ ル ご と に 用 意 し て お いた 波形 を 設定 : sounq_set_wave( ) 
⑬③ チ ャ ン ネ ル ご と に 周波 数 を 設定 : sound_set_pitoh ( ) 
個々 の 関数 の 詳細 に つい て は , Function 3-.1 や マニ ュ ア ル な ど で 確 認 し て お いて くだ 
さい 。 


Function 3-1 サウ ンド 関連 の 関数 
vo1dQ near Sound_ in ( ) : 


機能 音源 を 初期 化し ます 。 サ ウン ド 機 能 を すべ て オフ の 状態 に し , 各 チ ャ ン ネ ル の 波形 
デー タ も 0 で 埋め た 状態 に な り ま す 。 


Yo1d near Sound_set_channe1 (unsiqgned SoundG_ チ 7a9S) 


引数 =。 soung fiags: シンボル (Table A) を 論理 和 で 結合 し た 値 
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j 和 機能 各 チ ャ ン ネ ル の 出力 を 有効 に する か どう か , チャ ン ネ ル の 付加 機能 を 有効 に する か 
どう か を 設定 し ます 。 引 数 soung rags の 各 ビ ッ ト の ON/OFF に よっ て , 各種 設定 
を 行い ます 。 な お , ボイス 機能 を 有効 に 設定 し た 場合 ,、 チャ ン ネ ル 2 の 出力 が 有効 か 
無効 か に 関わ ら ず , 音声 は 必ず 出力 され ます 。 


TableA sound flags の と る 値 (sounddef.h で 定義 ) 
CHANNEL1 ON チャ ン ネ ル 1 の 出力 を 有効 化 
CHANNEL2 ON チャ ン ネ ル 2 の 出力 を 有効 化 
CHANNEL3 ON チャ ン ネ ル 3 の 出力 を 有効 化 
CHANNEL4 ON チャ ン ネ ル 4 の 出力 を 有効 化 


VOTCE MODE チャ ン ネ ル 2 の ボイス 機能 を 有効 化 
SWEEP MODE チャ ン ネ ル 3 の スウ ィ ー プ 機能 を 有効 化 
NOTSE MODE チャ ン ネ ル 4 の ノイ ズ 機 能 を 有効 化 


Yo1QdQ near Sound_ se 上 _ouEput (uns1tgrned ou と Du と た 7a9S) 
引数 oucpuc rf7ags: シン ボル (Table B) を 論理 和 で 結合 し た 値 
機能 。 音 を 出力 する 装置 に 関す る 設定 を 行い ます 。 内蔵 ス ピー カー, 外部 ヘッ ド フ ォ ン へ 
の 出力 の 有無 や , 出力 する 音 の 大 き さ を 設定 し ます 。 引 数 oucpuc rags の 各 ビ ッ 
ト の ON/OFF に よっ て , 各種 設定 を 行い ます 。 
TableB output_fags の と る 値 (sounddef.h で 定義 ) 


本 体 ス ピー カー の 出力 を 有効 化 
すご く 大 き な 音 で 出力 する 
少し 大 き な 音 で 出力 する 

少し 小さ な 音 で 出力 する 

すご く 小 さ な 音 で 出力 する 
外部 ヘッ ド フ ォ ン の 出力 を 有効 化 


SPEAKER ON 


1L_ 明 


SPEAKER VOLUME 4 


SPEAKER VOLUME 3 


SPEAKER VOLUME 2 


SPEAKER VOLUME 1 


HEADPHONE ON 


Yo1d near Sound_ Se_wave(1nt onanne7, urnS1gned Char Far メ wa コ VG_ の ) 


中 数 。 cnanne7: シンボル (Table C) の 値 
*wave p:16 バ イト か ら な る 波形 デー タ へ の ポイ ンタ 


機能 。 WonderSwan の 音源 で は , 4 チャ ン ネ ル す べ て に お いて , 設定 し た 波形 で 音 の 出力 を 
行う よう に な っ て いま す 。 sound init() に よる 初期 化 時 に , すべ て の チャ ン ネ ル 
の 渡 形 デー タ が 0 で クリ ア さ れ て し まう の で , チャ ン ネ ル に 流 形 デー タ を 与え て や ら 
な いと , 音 を 鳴ら すこ と が で きま せん 。 こ の 関数 は , 指定 し た チャ ン ネ ル に 波形 デー 


タ を 与え ます 。 
波形 デー タ は 4 ビッ ト の 値 が 32 個 分 集まっ て 16 バ イト の デー タ に な っ て いま す 。 た と 
えば 
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0 8 16 24 31 step 
15 口 口 画 「」 LIL L 
14 品 品 ロロ [ HH ロ ] 
13 ロ HH 中 | 男 | 画 | 較 | 画 | 画 | 画 | 男 | 日 
12 ロ ロロ 罰 ロ 還 品 口 [ HHH 還 HH ロ 品 品 ロ 
11 ロ ロロ 品 ロ HHH ロ HH | 間 | 部 | 
10 ロ ロロ HHPPH ロ PHHH ロ RI IIHHHHH 
9 | | 導 | 画 | 画 | | 間 | 回 | 玉 | 玉 | | 一 | | 議 較 | 画 | 還 | 旧 | 還 | 男 | | 男 | 較 | 
8 HHHHHHPHLI HHHHH ロ 
7HH 画 HHHPHH ロ 遼 ロロ ロロ 還 口 還 
6HH ロ 還 口 ロロ ロロ ロロ HH 画 ] I ロ ロロ ロ 
5 ロロ ロロ 画 男 | HH ロロ HH ロロ DI [ 1] 層 || 
4 日 画 国 | | 画 | 画 画 | | 前 | 回 国男 | | 画 間 | 回 | | 
3 口 置 ロ ロロ | 男 | | 画 還 | 較 画 | 較 昌男 | | 画 | 田 | 較 | 懇 画 | | 選 | 間 | 
の 男 | | 回 男 | | | 回 | 男 男 
ll | 画 | 画 回 | I 記 | 画 | 還 | 画 ] 品 画 [ 
0 品 コロ ロロ 還 JH ロ 恒 
vol 
と いう デー タ で 表現 され る 濾 形 は , 
0x31, 0Ox74, Ozxc9, OxcF, Ox69, Ox24, 0x31, 0x734, 
0xc9, 0x69, Ox24, 0x31, Ox74, Ox79, Ox34, Ox01 


と いう 16 バ イト の デー タ に な り ま す 。 こ うし た デー タ を 用 意 し て お いて , その デー 
タ へ の ポイ ンタ を 引数 wave p に 指定 し て くだ さい 。 


Table C 


CHANNET1 


CHANNEL2 


channel の と る 値 (sounddef.h で 定義 ) 


チャ ン ネ ル 1 を 指定 
チャ ン ネ ル 2 を 指定 


CHANNEL3 チャ ン ネ ル 3 を 指定 


チャ ン ネ ル 4 を 指定 


CHANNEL4 


Yoid near sound_set_vo1ume (in onanne7, umS1qned VOJ7ore) : 


引数 


機能 


cnanpne7 : シン ボル (Table D) の 値 
voJume : 上 位 4 ビ ッ ト 0 一 15, 下位 4 ビッ ト 0~15 


指定 し た チャ ン ネ ル の 出力 時 の 音量 を 設定 し ます 。 内 蔵 ス ピー カー は 1 個 な の で モノ 
ラル 出力 で す が , 音源 内 部 で は ステ レオ に な っ て いる の で , 左右 の 音量 を 別々 に 設 
定 し な けれ ば な り ま せん 。 yo7ume の 上 位 4 ビ ッ ト に 左側 , 下位 4 ビッ ト に 右側 の 音量 
を 指定 し ます 。 ス テレ オ で ある こと を 意識 し な い の で あれ ば , 上 位 / 下 位 ビ ピット に 同 
じ 値 を 設定 すれ ば よい で し ょ う 。 


、 TableD channel の と る 値 (sounddef.h で 定義 ) 

| cHANNEr1 チャ ン ネ ル 1 を 指定 | 
CHANNEL2 チャ ン ネ ル 2 を 指定 | 
CHANNEL3 | チャ ン ネ ル 3 を 指定 | 
CHANNET.4 | チャ ン ネ ル 4 を 指定 | 
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Yo1d near Sound_8e pitoh(1n 上 C り anne7 , umnS1grned 子 と e の ) : 


引数 | cnannpe7: シ ン ボ ル (Table E) の 値 
了 zeg: 0 一 2047 の 値 


機能 | 指定 し た チャ ン ネ ル の 出力 周波 数 を 設定 し ます 。 周 波数 の 設定 に は rreg の 下位 11 ビ 
ッ ト が 使用 され , 以下 の 計算 式 に よっ て 求まる 周波 数 で , soundg set wave () に 設 
定 さ れ た 波形 を 出力 し ます 。 


3.072 X 10" エ ((2048 一 rreg) X 32 ) Hz 


TableE channel の と る 値 (sounddef.h で 定義 ) 


CHANNEL1 チャ ン ネ ル 1 を 指定 
CHANNEL2 ン ネ ル 2 を 指定 
CHANNEL3 | チャ ン ネ ル 3 を 指定 
CHANNEL.4 | チャ ン ネ ル 4 を 指定 


これ ら の 関数 は <sys/sound.h> に 定義 され て いま す 。<sys/sound.h> は <sys/bios.h> に よっ て も イン ク 
ルー ド さ れ ま す 。 ま た , 引数 の 解説 で 使用 を 推奨 し て いる 定義 群 は 、 sounddef.h (p.56) に まとめ て 
あり ます 。 自由 に 利用 し て くだ さい 。 


< 商 : 複数 の チャ ン ネ ル か ら 音 を 鳴ら す プ ログ ラム 


test8.< で は チャ ン ネ ル 1 だ け を 使い まし た が , 他 の チャ ン ネ ル で も 同じ よう に 音 を 鳴 
ら せ ま す 。 ま た , 複数 の チャ ン ネ ル を 同時 に 鳴ら せ ば , 和音 が 実現 で きま す 。test9.c 
(List 3.3) で は , チャ ン ネ ル 3, チャ ン ネ ル 4 を 同時 に 鳴ら し て いま す 。 

複数 の チャ ン ネ ル を 同時 に 鳴ら す 場 合 に は , 鳴ら す 音 の 組み 合わ せ に よっ て 音源 や 
本 体内 蔵 ス ピー カー の 性 能 が 追い つか ず , 正しく 音 が 再生 きれ な いこ と が あり ます 。 


List 3-3 test9.c 


#1inc1ude <sys/bios .h> 
#include "sounddef .h" 


Vo1d main() { 
nt ュ : 


unsiqgned ] = 0: 


static unsigned char wvy[] = { 
0x21, Ox43, Ox65, Ox87, 0xa9, Oxcb, Oxzed, 0xff, 
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0xEf, Oxde, Oxbc, Ox9a, Ox78, Ox56, 0Ox34, Ox12 
] 


/* チャ ン ネ ル 3 と 4 を 使っ て 鳴ら す */ 

Sound ini() ょ 

Sound set channe1 (CHANNEL3 ON | CHANNEL4 ON) : 
Sound se output (SPEAKER ON | SPEAKER VOLUME 4): 
Sound Se wave(CHANNEL3, wYy) : 

Sound _set vo1ume (CHANNEL3, OxfF) : 

Sound set wave (CHANNEL4, wV) 

Sound set volume (CHANNEL4 , OxfF) 


while(1) { 
for(1 = 0: < 1000z i++) 
/* チャ ン ネ ル 3 は だ ん だ ん 音 が 上 が っ て いく +*/ 
SounQd se pitch (CHANNEL3, ]++) : 
/* チャ ン ネ ル 4 は だ ん だ ん 音 が 下がっ て いく */ 
Sound se pitch (CHANNEL4, OxfFFFfF - ]): 
1 = key preSSs CoheCck() 
1f(1 & KEY START) 
break: 


ノイ ズ 音 を 鳴ら し て みる 


チャ ン ネ ル 4 の ノイ ズ スズ 機能 を 試し て み ま し ょ う 。 

この 機能 を 使う た め に は , sound set channe1 () で ノイ ズ 機 能 の 使用 を 設定 し て 
お きま す 。 こ の 設定 を 行う と , 設定 を 解除 する まで , チャ ン ネ ル 4 で は , 波形 と 周波 数 
を 指定 し て 音 を 鳴ら す 機能 が 使用 で き な く な り ま す 。 

チャ ン ネ ル 4 の ノイ ズ 機 能 を 有効 に し て か ら , 音量 と ノイ ズ の 種類 を 設定 する と , ノ 
イズ 音 が 鳴り 出し ます 。 


メイ ズ 友 中 らし て みる 二 * の 1 


疫 ノイ ズ 音 を 鳴ら す プ ログ ラム 


test10.c (List 3-4) は , 音源 を 初期 化 の 後 ,. チャ ン ネ ル 4 を 使っ て , タイ プ 0 の ノイ ズ 
音 を 鳴ら す プ ログ ラム で す 。 ノ イズ の 種類 な どの 設定 に は , sound set noise() を 
使用 し ます 。 


。 Hist3-4 test10.c 


#1nc1ude <sys/bios .h> 
#1nclude "sounddef.h" 


vo1d main() [{ 


も 。 下 が 


/* チャ ン ネ ル 4 を 鳴ら す 設定 */ 

Sound 1nit(): 

sound se channe1 (CHANNEL4 ON | NOISE MODE) : 
Sound set output (SPEAKER ON | SPEAKER VOLUME 4): 
Sound set vo1ume (CHANNEL4, Oxff) > 


/* ノイ ズ を 鳴ら す */ 
sound se noise(NOTSE 1 | NOISE COUNTER RESET | NOTSE COUNTER ON) 


while(1) { 
1 = key presS check() 
1f(1 & KEY START) 
break: 


Function 3-2 ノイ ズ 音 を 鳴ら す 関数 
YO1Q near Bourd_ get_notse(uns1grmed noOJSeG_ チ Ja の S) : 
串 数 )。 noise fiags・ シ ン ボ ル (Table A) を 論理 和 で 結合 し た 値 
能 "チャンネル 4 が ノイ ズ 機 能 を 利用 する 設定 に な っ て いる と き , 実際 に ノイ ズ を 発生 さき 
せま す 。 ノ イズ の 種類 は 8 種類 か ら 選 べ ま す 。 ノ イズ 生成 に は 内 部 で カウ ンタ が 用 い 
られ て お り , この カウ ンタ を リセ ッ ト し た り , カウ ンタ を 動か し た り , 停止 し た り 
する こと も で きま す 。 ノ イズ の 種類 を 変え る 場合 に は , 必ず , カウ ンタ リセ ッ ト を 
同時 に 設定 し て くだ さい 。 
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TableA noise_fags の と る 値 (sounddef.h で 定義 ) 


NOTSE 1 タイ プ 0 の ノイ ズ 

NOTSE 2 タイ プ 1 の ノイ ズ 

NOTSE 3 タイ プ 2 の ノイ ズ 

NOTSE 4 タイ プ 3 の ノイ ズ 

NOTSE 5 タイ プ 4 の ノイ ズ 

NOTSE 6 | タイプ 5 の ノ ィ イズ 還 
NOTSE 7 ー | タイプ 6 の ノ フィズ 

NOTSE 8 タイ プ 7 の ノイ ズ 

1 ノイ ズ カ ウン タ を リセ ッ ト 」 
NOTSE COUNTER ON ノイ ズ カ ウン タ を 有効 化 


この 関数 は <sys/sound.h> に 定義 され て いま す 。<sys/sound.h> は <sys/bios.h> に よっ て も イン クル ー 
ド さ れ ま す 。 ま た , 引数 の 解説 で 使用 を 推奨 し て いる 定義 群 は 、 sounddef.h (p.56) に まとめ て あり 
ます 。 自 由 に 利用 し て くだ さい 。 


スウ ィ ー プ させ て 鳴ら し て みる 


チャ ン ネ ル 8 の スウ ィ ー プ 機能 を 試し て み ま し ょ う 。 ス ウィ ー プ と は , 鳴ら す 音 の 周 
波数 を 単位 時 間 ご と に , 一 定 の 間隔 で 変化 させ る 機能 の こと で す 。 つ まり , test8.c 
(List 3-1) で ルー プ を 使っ て 周波 数 を 変化 させ て いた の と 同じ 機能 を , 自動 的 に 行っ て 
くれ る と いう わけ で す 。 

この 機能 は , 通常 の 音 を 鳴ら す 機能 に オマ ケ で つけ る よう な 機能 で す の で , まず は 
チャ ン ネ ル 3 を 使っ て 普通 に 音 を 鳴ら す 処理 を 行い ます 。 そ の うえ で , 周波 数 の 変化 の 
させ 方 を 指定 し て や る と , スウ ィ ー プ 機能 が は た らき ます 。 


7 疫 スウィープ させ て 音 を 鳴ら す プ ログ ラム 


test11.c (List 3-.5) は ,。 スウ ィ ー プ させ て 音 を 鳴ら す プ ログ ラム で す 。 音源 初期 化 の 
後 , チャ ン ネ ル 3 を 使っ て 音 を 鳴ら し , その 後 , sound_ set sweep() で スウ ィ ー プ 機 
能 を 設定 し て いま す 。 実行 する と , test8.c と 同様 に , 音程 が 連続 的 に 変化 し て いき ま 
す 。 
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List3-5 testl1.c 


#1nc1ude <sys/Dbios .h> 
#inc1ude "sounddef .h" 


void mainn() 【{ 


NE 


statioc unsiqned char wv[] = { 
Ox31 。 Ox74。 Dc9, OxCE。 OX69, 
0Q9。 OX69。。 OX24。 Ox31。 0X747 
1 


/* チャ ン ネ ル 3 を 鳴ら す 設定 */ 
SounQd init() 


0x31, 
0x34, 


Sound set channe1 (CHANNEL3 ON | SWEEP MODE) 
SOund Se ou て put (SPEAKER ON | SPEAKER VOLUME 4) 


/* スウ ィ ー プ で 鳴ら す */ 

Sound set wave (CHANNEL3, wVv) 
Sound set volume (CHANNEL3, OxFff) : 
Sound se pitch (CHANNEL3, 0): 
Sound se sweep(1, 1): 


while(1) { 
1 = key press check() 
1f(1 & KEY START) 
break: 


0x74, 
0x01 


Fnetiom 838 。 スウ ィ ー プ させ る 関数 


Vo1d near sound_set_sweep (nt gweep, 1n と GO と エ 了 m@) : 


引数 


sweep・-128 (0x80) 一 127 (0x7F) の 値 
sCeptzme: 0 一 31 の 値 


チャ ン ネ ル 3 が スウ ィ ー プ 機能 を 利用 する 設定 に な っ て いる と き , スウ ィ ー プ の 動作 
を 設定 し ます 。 sceprime で 指定 し た 時 間 間 隔 ご と に , speep で 指定 し た 値 を , 出 
力 周波 数 を 表す 内 部 パラ メー タ に 足し て いき ます 。 基本 的 に , sweep が 正 の 値 の 場 
合 , 音 は どん どん 高く な り , 負 の 値 の 場合 , ど ん どん 低く な り ま す 。 sceptrme で 
指定 し た 値 と , 周波 数 変化 が 起こ る 時 間 間 隔 は , 「2.667 X (scepzme + 1) ms| と 
いう 式 で 求め られ ます 。 


この 関数 は <sys/sound.h> に 定義 され て いま す 。<sys/sound.h> は <sys/bios.h> に よっ て も イン クル ー 
ド さ れ ま す 。 
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音声 を 鳴ら し て みる 


Windows で よく 用 いら れる wave フ ァイル な どの 音声 デー タ は , 音声 サン プリ ング と 
いう 手法 を 用 いて , 音声 を デー タ 化 し て いま す 。 音声 す サン プリ ング と は , た い へ ん 短 
い 一 定 の 時 間 間 隔 で , その と き 鳴 っ て いる 音 の デー タ を 収集 し て お き , 収集 し た デー 
タ を 元 に , サン プリ ング 時 と 同じ 間隔 で 音 を 鳴ら せ ば , 音声 を 再生 で きる と いう も の 
で すら 

チャ ン ネ ル 2 の ボイス 機能 と は , 用 意 き され た 音声 サン プリ ング デー タ を 鳴ら す 機能 の 
こと で す 。 sound set channe1 () で チャ ン ネ ル 2 の ボイス 機能 を 有効 に する 設定 を 
行う と , sound set vo1ume () が , 音声 サン プリ ング デー タ を 鳴ら す 関 数 と し て 機 
能 す る よう に な り ま す 。 こ こ で , 音声 サン プリ ング を 行っ た と き と 同 じ 時 間 間 隔 で 
次 々 と 音声 サン プリ ング デー タ を 鳴ら し て や れ ば , 音声 を 再生 で きる わけ で す 。 

音声 を 鳴ら す 仕組 み は 理 解 で きた か と 思い ます が , 実際 の プロ グラ ム に お いて この 
処理 を 行う の は , 非常 に めん どう な の で す 。 な ぜ か と いう と , どん な 処理 を し て いよ 
うと も , 一 定 の 時 間 間 隔 で soung set vo1ume() を 呼び 出さ な けれ ば な ら な いか ら 
で す 。 時間 に ズレ が 生じ る と , 正しく 再生 が 行わ れ ま せん 。 

一 般 的 な コン ピュ ー タ に は 割り 込み と いう シス テム が つい て お り , 今 , 問題 に な っ 
て いる よう に , 一 定 の 時 間 間 隔 で 必ず 実行 し た い 処理 が ある 場合 な ど に , 利用 され て 
いま す 。 こ の シス テム は , 割り 込み 信号 が 発生 する と , それ まで 行っ て いた 処理 を 一 
時 中 断 し て , あら か じ め 決 め ら れ た 割り 込み 処理 を 実行 し , それ が 終わ っ て か ら 元 の 
処理 の 続き を 行う と いう 仕組 み に な っ て いま す 。 一 定 の 時 間 間 隔 で 割り 込み 信号 が 発 
生 し た と き に , 割り 込み 処理 の 中 で sound set vo1ume() を 呼び 出す よう に し て や 
れ ば , 他 の 処理 に 気 を と らち られ る こと な く , 音声 の 再生 が 行え を る の で す 。 

WonderWitch に は , この 機能 を も っ た , 一 般 的 に は 音源 ドラ イ バ と 呼ば れる ソフ ト 
ウェ ア の 部 品 が 標準 添付 され て いま す 。 こ の た め , 割り 込み に 関す る プロ グラ ム を 作 
ら な く て も , 簡単 に 音声 デー タ を 再生 する プロ グラ ム が 作れ ます 。 

それ で は , 実際 に 音声 デー タ を 鳴ら し て み ま し ょ う 。 
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人 
7 倫 音声 サン プリ ング デー タ の 準備 

画像 の 表示 を 行っ た と き の よ うに , デー タ を 準備 する と ころ か ら 始 め ま す 。 チ ャ ン 
ネル 2 の ボイス 機能 で 使用 で きる 音声 サン プリ ング デー タ は , 8 ビッ ト で モノ ラル の も 
の の み で す 。 また, WonderWitch 付 属 の 音源 ドラ イ バ が , ボイス 再生 時 に 
sound set vo1ume () を 呼び 出す 周期 (サン プリ ング レー ト ) は 約 12KHz に な っ て い 
ます 。 し た が っ て , この 条件 に 準じ た 音声 サン プリ ング デー タ を 用 意 し な けれ ば な り 
ませ ん 。 


> 次 wave フ ァイル を 音声 サン プリ ング デー タ に 変換 する 

まず , Windows 上 で よく 用 いら れる 音声 サン プリ ング デー タ の ファ イル 形式 で ある 
wave フ ァイル で , その フォ ー マ ッ ト が 「PCM, 11.025KHz, 8 ビッ ト , モノ ラル | と な 
っ て いる も の を 用 意 し まし ょ う 。 こ こ で いう フォ ー マ ッ ト は , Windows で な ら , ファ 
イル の [プロパティ] で 確認 で きま す 。 条 件 に 合っ た ファ イル が 手元 に な い 場 合 は , 
Windows 付 属 の サウ ンド レコ ー ダ を 使っ た り , 音声 ファ イル を 編集 する フリ ー ウ ェ ア 
(付録 CD-ROM に 収録 の サン プリ ング 周波 数 変換 な ど ) を 利用 し て , ファ イル を 作成 し 
て くだ さい 。 

WonderWitch に は , wave フ ァイル か ら , 音源 ドラ イ バ で 再生 可能 な 形式 の デー タ に 
変換 する 機能 を も つ ツ ー ル “sndcnv.exe” が 用 意 き さき れ て いま す 。 変換 し た い wave フ ァ 
イル が nande.wav だ と する と , 


> grndcnV -w nanQde.wa マ 


に よっ て , 音源 ドラ イ バ で 利用 で きる 音声 サン プリ ング デー タ nande.fr が 作成 され ます 。 
nande.fr は , な ん ら か の 形 で WonderWitch 上 に 置き ます の で , WonderWitch の 容量 に 収 
ま ら な いよ うな 大 きす ぎる デー タ は 使え な いこ と に な り ま す 。 ま た , 元 の デー タ に お 
いて , デー タ 自 体 の 音量 が 大 きす ぎる と , 正しく 変換 が 行わ れ ま せん 。 音量 が 小さ す 
ぎ て は 聞こ えま せん が , 大 きす ぎ て も 正しく 再生 で き な い の で す 。 こ の 点 に も 注意 し 
て 元 デ ー タ を 作成 する 必要 が あり ます 。 


立 : 音声 を 鳴ら す プ ログ ラム 


作成 し た デー タ を WonderWitch 上 で 再生 する プロ グラ ム が test12.c (List 3.6) に な り 
ます 。 音源 ドラ イ バ は 標準 的 に 使わ れる 位置 付け に な い の で , il_sound.h を イン クル ー 
ド で きる よう に 準備 する 必要 が あり ます 。 具 体 的 に は , iL_sound.h を , イ ンス トー ルディ 
レク トリ (デフ ォ ル ト で COC:\WWitch) の 下 の ilWsounnd デ ィ イレ クト リ か ら , 標準 ヘッ ダフ 
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ァイル の 置き 場所 で ある inclnde デ ィ レ クト リ に コピ ー し ます 。 

また , この サン プル プロ グラ ム を 実行 する た め に は , WonderWitch 上 に 3 つの ファ イ 
ル を 転送 する 必要 が あり ます 。 sndcnv.exe で 作成 し た nande.fr, test12.c< を コン パイ ル 
し て 作成 され る test12.bin に 加え て , 音源 ドラ イ バ 本 体 で ある “sound." を 転送 し な け 
れ ば な り ま せん 。 sound.il は isound.h と 同じ il\soumd デ ィ レ クト リ に 置か れ て いま す 。 
3 つの ファ イル を rom0 の 領域 に 転送 し た 後 , test12.bin を 実行 する と , 音声 の 再生 が 行 


われ ます 。 


_List3-6 test12.c 


#1nc1ude <syS/Fcnt1 .h> 
#1imc1ude <sys/Dbtos .h> 


#1nc1ude く 11 Sound.h> 

/* 1 sound.h は 、 音 源 ド ライ バ 利用 時 に 必要 。 
(WW イン スト ー ル 場所 )\11\sound\i1 sound.h を 
(WW イン スト ー ル 場所 )\inc1lude に コピ ー す る と 
inc1ude が <> に よる 指定 で 可能 と な る 。 4 


/* 音源 ドラ イ バ 利 用 時 に 必要 */ 
SoundIL soundTL: 


vo1d main() { 
Vo1d far *VO1C@: 


下 化 ゅ 


/* 再生 する デー タ の 準備 */ 
if((voice = mmap("/rom0/nande .fr") ) == NULT) 


returnz 


/* 音源 ドラ イ バ を 準備 する */ 
tf(open sound i1(&soundIL) != E ES SUCCESS ) 


GEUuTrn ァ 


/* 音源 ドラ イ バ を 初期 化 ょ / 


Sounddrv 1nit(): 


/* 音源 ドラ イ バ を 起動 */ 


SounQd open () 


/* ボイス 再生 が 行わ れ て いな か っ た ら , 再生 開始 */ 
if(!voice check() ) 
Yotoe play(votce, PLAY STNGLE) : 


while(1) 【 
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1 = key Dress check() 
if(1 & KEY START) 


break: 


/* 音源 ドラ イ バ を 終了 */ 


Sound Cc1ose() 


/* 音源 ドラ イ バ 使用 後 の 後 片付け */ 


SoundQdrV re1eaSe () 


> 交 プロ グラ ム の ボイン ト 
音源 ドラ イ バ を 用 いて 音 を 鳴ら す た め に は 。 プ ログ ラム 上 で 以下 の 手順 が 必要 と な 
り ま す 。 


①il sound.h の イン クル ー ド 
2 音源 ドラ イ バ の ワー ク 領 域 と な る SoundIL 型 変数 を グロ ー バ ル 変 数 と し て 作成 
③ 音 源 ド ライ バ の 準備 : open_sound_i1 ( ) 
④ 音 源 ド ライ バ の 初期 化 : soundarv_init() 
音源 ドラ イ バ を 起動 : sounq_open ( ) 
音源 ドラ イ バ で 音 を 鳴ら す 
音源 ドラ イ バ を 終了 : sounq_c1ose ( ) 
8 音源 ドラ イ バ 使用 後 の 後片付け : soundqrv_re1ease( ) 


ボイス 再生 を 行う た め に は , ⑥ の と ころ で , voice play () を 使い ます 。 サ ンプ ル 
プロ グラ ム で は 使っ て いま せん が , 再生 中 の ボイス を 止め る voice stop() と いう 関 
数 も あり ます 。WonderWitch 標 準 添付 音源 ドラ イ バ の 利用 方 法 の 詳細 に つい て は , 
Function 3-4 や マニ ュ ア ル な ど で 確 認 し て お いて くだ さい 。 

Function 3-4 音源 ドラ イ バ に 関す る 関数 


#deFine open_Sound_11 ( soun7 ア の ) 
(11ibTL->_ open ("9sound" , (TL far *) SounG7 了 の) ) 


引数 。 soungrrp: 音源 ドラ イ バ 動 作 時 に 必要 と な る SoundIL 型 メモ リ 領 域 へ の ポイ ンタ 


返 値  E Fs succEss 以 外 だ と 失敗 
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_ 機能 プロ グラ ム か ら 音 源 ド ライ バ を 利用 で きる よう に し ます 。 open sound i1() は 関 
数 で は な く マ クロ で す が , 使う 分 に は 関数 だ と 思っ て か まい ませ ん 。 
音源 ドラ イ バ の 組み 込み に 成功 する と , E_FS SUccEsS を 返し ます が , それ 以外 の 
値 の 場合 , 音源 ドラ イ バ が 利用 で き な い こと に な り ま す 。 こ こ で 生じ る エラ ー は , 
た いて い 実 行 環境 に 問題 が ある と 考え られ ます 。 音源 ドラ イ バ 本 体 で ある sound.il を , 
rom0 領 域 に 転送 し 忘れ て いな いか 確認 し まし ょ う 。 
ちな み に 音 源 ド ライ バ は , イン ダイ レク トラ イブ ラリ (以下 , L) と し て 提供 され 
ます 。 IL と は , WonderWitch が 備え て いる 機能 の 1 つ で , プロ グラ ム の 実行 中 に ライ 
ブラ リ を 動 的 に リン ク す る 仕組 み で す 。 


Yo1d goundQdrv_ 1n ュ キモ () : 


j 機 能 。 音源 ドラ イ バ を 利用 する た め の 準 備 を 行い ます 。 内 部 的 に は , 音源 ドラ イ バ 動 作 時 
に 必要 と な る , 作業 用 メモ リ 領 域 を 確保 し ます 。open sound i1() を 呼ん で , 音 
源 ド ライ バ の 組み 込み に 成功 し た 後 で , 呼ぶ よう に し て くだ さい 。 


vo1d sound_open ( ) : 


機能 ′ 音源 ドラ イ バ の 実行 を 開始 し ます 。 実行 中 は , さま ざま な 音源 ドラ イ バ へ の リク エ 
スト を 処理 する こと が で きま す 。 sounddrv init() を 呼ん だ 後 で 呼ぶ よう に し て 
くだ さい 。 


BOOL voioce_check( ) : 
返 値 0 も し く は 1 
」 和 能 ボイス 再生 中 か どう か を 調べ ます 。 再 生 中 は 1, そう で な けれ ば 0 が 戻り 値 と な り ま 


】 


vo1d votoe_p1ay (Vo1d Far *voroe, WORD ode) : 


引数 。 *vorce: 音声 デー タ へ の ポイ ンタ 


oge : 未 使用 


機能 。 音声 デー タ を ボイス 機能 を 使っ て 再生 し ます 。 使 用 する デー タ は , 8 ビッ ト , モノ ラ 
ル , 約 12KHz で サン プリ ング され た もの を リソー ス 形 式 に し た デー タ で す 。 こ の 形 
式 の デー タ は sndcnv.exe を 利用 し て wave 形 式 の ファ イル か ら 作 成 で きま す 。 し か し , 
サン プリ ング 時 の 条件 を 満た し て いる wave フ ァイル で な いと , 正しく 変換 され ませ 
ん の で , 注意 し て くだ さい 。 


Vo1d sound_c1ose() : 
機能 。 実行 中 の 音源 ドラ イ バ を 停止 し ます 。 停止 以降 は , 音源 ドラ イ バ へ の リク エス ト に 
よっ て 鳴っ て いた 斉 は , すべ て で 止まり ま す 。 プ ログ ラム の 流れ 上 , 必ず , 
sound open() と 対 に な る よう に 使用 し て くだ さい 。 
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vo1d sounddry_re1eaSe () : 
爆 能 ′ sounddrv init() で 確保 し た 作業 領域 を 開放 し ます 。 で すか ら , sounddrv nit() 
と 対 に な る よう に 使用 し て くだ さい 。 


これ ら の 関数 は , il sound.h に 定義 され て いま す 。il sound.h は , 開発 環境 を イン スト ー ル し た 直後 
の 状態 で は “jnclude <il sound.h>" で イン クル ー ド で き な い 場所 に ある の で 注意 し て くだ さい 。 


wse 音楽 を 鳴ら し て みる 


WonderWitch 添 付 の 音源 ドラ イ バ に は , ボイス 再生 以外 に も , 曲 を 演奏 し た り , 効 
果 音 を 鳴ら し た りす る 機能 が あり ます 。 そ こ で , 音源 ドラ イ バ を 用 いて 曲 を 演奏 させ 
で みお E に し まし ょ う 。 


< 仙 : 曲 デー タ の 作成 


演奏 する 曲 の デー タ は Music Macro Language (以下 , MML) と 呼ば れる 形式 で 準備 
し ます 。MML は , 音源 の チャ ン ネ ル ご と に , どの 音 を どれ だ け の 長き 鳴ら すか 記し た 
も の で す 。 五線譜 を テキ スト デー タ で 表現 し た も の と 考え て よい で し ょ う 。 また, 
MML の 文法 に は さま ざま な も の が ある の で , すでに 他 の MML を 使っ た こと の ある 人 も , 
WonderWitch の マニ ュ ア ル に 含ま れる 「MML 文 法 」 に 目 を 通し て お く 必 要 が あり ます 。 

ii\sound デ ィ レ クト リ に ある sample.mml が , 実際 に MML で 表記 され た 曲 デ ー タ に な 
り ま す 。 作曲 の こと を まっ た く 知 ら な い 人 が , いき な り sample.mml の よう な 曲 デ ー タ 
を 作成 する こと は 不可 能 で すか ら , と りあ え ず チャ ン ネ ル 1 だ け を 使っ て 鳴ら せる よう 
な , 音楽 の 教科 書 の 曲 や , 着メロ を MML 化 し て みる と いっ た よう に , 簡単 な MML デ ー 
タ を 作成 し て みる と よい で し ょ う 。 

ここ で は , せっ か く samplemml が ある の で すか ら , これ を WonderWitch で 鳴ら し て 
みる こと に し ます 。 音声 デー タ と 同様 に sndcnv.exe を 利用 し て 変換 を 行い ます 。 


> sndon samp1le.mmt 


する と , 音源 ボド ライ バ で 利用 で きる 曲 デ ー タ sample.fr が 作成 され ます 。 
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人 曲 デ ー タ を 鳴ら す プ ログ ラム 


作成 し た 曲 デ ー タ を 鳴ら す プ ログ ラム が test13.c (List 3-7) で す 。 音源 ドラ イ バ を 使 
用 する 点 は , ボイス 再生 の と き と 同 じ で すか ら , test12.c (List 3.6) と ほとん ど 同 じ で 
す 。 異な る の は , 音源 ドラ イ バ で 音 を 鳴ら す 部 分 で , 曲 の 演奏 に bgm p1ay () を 使っ 
EN まま が か ら 

この サン プル プロ グラ ム を 実行 する た め に は , WonderWitch 上 に 3 つの ファ イル を 転 
送 する 必要 が あり ます 。 sndcnv.exe で 作成 し た sample.fr, test13.c< を コン パイ ル し て 作 
成 さ れる test13.bin, 音源 ドラ イ バ 本 体 sound.i の 3 つ で す 。38 つ の ファ イル を rom0 の 和 領 
域 に 転送 し た 後 , test13.bim を 実行 する と , 曲 の 再生 が 行わ れ ま す 。 


List3-7 test13.c 


#1inolude <sys/fEcnt1] .h> 
#inc1ude <sys/bios .h> 


#1nclude く i] sound.h> 

/* 1 sound.h は 、 音 源 ド ライ バ 利 用 時 に 必要 。 
(ww イン スト ー ル 場所 ) \11\sound\i] sound.h を 
(ww イン スト ー ル 場所 )\inctude に コピ ー す る と 
nc1ude が <> に よる 指定 で 可能 と な る 。 4 


/* 音源 ドラ イ バ 利 用 時 に 必要 */ 


SoundIL soundTL: 


vo1d matn() { 
Void far *muS1Cz 


半 宮 起 、: 玉 2 


/* 再生 する デー タ の 準備 */ 
1E((music = mmap("/rom0/samp1e . Fr") ) == NULL ) 


returnz 


/* 音源 ドラ イ バ を 準備 する */ 
if(open sound 11(&soundTL) != E FS SUCCESS) 


ェ return/ 


/* 音源 ドラ イ バ を 初期 化 */ 


Sounddrv 1ni キ (): 


/* 音源 ドラ イ バ を 起動 */ 


Sound open () : 


音楽 を 鳴ら し て みる 固 /] 


/* 曲 の 再生 が 行わ れ て いな か っ た ら , 再生 開始 */ 
if(!bpgm check () ) 
bgm play(mus1tc, PLAY LOOP) : 


while(1) { 
1 = key presS check() : 
1F(1 & KEY START) 
break: 


) 


/* 音源 ドラ イ バ を 終了 */ 


Sound c1ose() : 


/* 音源 ドラ イ バ 使用 後 の 後片付け */ 


SounddrV _ release () 


Function 3-5 曲 デ ー タ 関係 の 関数 
BOOL, bgm_cheok( ) : 


返 値 0 も し く は 1 
機能 曲 が 再生 中 か どう か を 調べ ます 。 再 生 中 は 1, そう で な けれ ば 0 が 返 値 と な り ま す 。 


Yo1dQ bgm_play (void far * ち grn, WORD mode) : 


精 | *bgm: 曲 デー タ へ の ポイ ンタ 
mode : PLAY STNGLE も し く は PLAY LOOP 


利 能 曲 デ ー タ を 演奏 し ます 。moge に PLAY STNGrE を 指定 し た 場合 は 曲 を 1 回 演奏 する だ 
け で す が , ELAY LOOP を 指定 し た 場合 は 繰り 返し 演奏 を 続け ます 。 使 用 する デー タ 
は , MML 形 式 の も の を リソー ス 形 式 に 変換 し た デー タ で す 。 こ の 形式 の デー タ は , 
sndcnv.exe を 利用 し て , MML 形 式 で 曲 が 書か れ た ファ イル か ら 作 成 で きま す 。 


これ ら の 関数 は , il sound.h に 定義 き 8 きれ て いま す 。 il sound.h は 。 開発 環境 を イン スト ー ル し た 直後 
の 状態 で は , “jnclude <i| sound.h>" で イン クル ー ド で き な い 場所 に ある の で 注意 し て くだ さい 。 
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GOGO⑨ 〇 ① 


sndcnv.exe に つい て 


・ 書 式 
> sndcny [オプ ショ ン ] 変換 元 フ ァイル 名 [変換 先 フ ァイル 名 ] 


オプ ショ シン: 
i 音源 デー タ を 変換 し ます 
音声 デー タ (wave フ ァイル ) を 変換 し ます 
効果 音 リ ソー ス に 変換 し ます 
アセ ン ブ ラ の ソー ス フ ァ イル (.asm) を 出力 し ます 
リソー スタ イプ を 英字 2 文字 で 指定 し ます 
リソー ス ID を 10 進 数 で 指定 し ます 
WonderWitch 転 送 形式 (.fxX) の ファ イル を 出力 し ます 


sndcnv.exe は , 


曲 の 演奏 や 効果 音 を 記述 し た MML フ ァイル (.mml) 


音源 ドラ イ バ に 与え る 音色 定義 デジ データ を 記述 し た 音源 デー タフ ァイル (.prg) 
音声 デー タフ ァイル (.wav) 


を 音源 ドラ イ バ で 利用 可能 な リソー ス 形 式 の ファ イル に 変換 する ソフ ト で す 。 

ュ オ プシ ョ ン を 指定 し た 場合 は 与え られ た ファ イル を 音源 デー タ と し て 変換 を 行 
い ,。-w オ プシ ョ ン を 指定 し た 場合 は 与え られ た ファ イル を 音声 デー タ と し て 変換 を 行 
い ,。-b オ プシ ョ ン を 指定 し た 場合 は 、 与え られ た ファ イル を 効果 音 を 記述 し た MML フ ァ 
イル と し て 変換 を 行い これ ら の いずれ の オプ ショ ン も 指定 し な か っ た 場合 は 与え られ 
た ファ イル は 曲 の 演奏 を 記述 し た MML フ ァイル と 判断 し て 変換 を 行い ます 。 

変換 可能 な MML フ ァイル は , WonderWitch 用 の 書式 で 書か の れ た も の だ け で す 。 そ の 他 
の 形式 の MML で 書か れ た も の は 変換 で きま せん の で 注意 し て くだ さい 。 詳 し く は , 第 9 章 
を 参照 し て くだ さい 。 

変換 可能 な 音声 デー タ は 、 8 ビット, モノ ラル で , サン プリ ング レー ト が 約 12KHz の 
wave フ ァイル の み で す 。 ま た 内 部 形式 が PCM で ある 必要 も あり ます 。ADPCM な どの 内 
部 形式 を も っ た wave フ ァイル は 変換 で きま せん の で 注意 し て くだ さい 。 

その 他 の オプ ショ ン に つい て は , 本 書 の 範囲 内 で 使用 する こと は あり ませ ん 。 
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画面 に 何 か を 表示 し た り , 何 か 音 を 鳴ら し た りす る の は , ほとん どの 人 に と っ て 和楽 
し いこ と だ と 思い ます 。 自分 の 作っ た プロ グラ ム の 動作 が , 目 で 見 た り , 耳 で 聞い た 
り し て わか る の で すか ら , 自分 が 作っ た と いう 達成 感 を 得 ら れ ま す 。 

し か し , プロ グラ ム と いう も の は , 見 える 部 分 より も 見 えな い 部 分 の ほう が 重要 で 
ある こと が 多い の で す 。 見 えな い 部 分 を ちゃ ん と 作る の は , 地味 で シン ドイ 作業 だ っ 
た りす る の で す が , それ だ け に 腕 の 見 せ ど こ ろ で も ある の で す 。 作っ た プロ グラ ム が 
欠陥 住宅 に な ら な いよ うに , 見 えな いと ころ に も 気 を 配り まし ょ う 。 

WonderWitch に も , 見 えな いけ れ ど も 重要 な 部 分 が た くさ ん あり ます 。 本 章 で は , 
そん な 見 えな い 部 分 に つい て , 解説 する こと に し ます 。 


キー 入力 


WonderSwan に 標準 で つい て いて , WonderWitch で 利用 で きる 入力 装置 は , 11 個 の ボ 
タン だ け で す 。 動作 し て いる プロ グラ ム に , な ん ら か の 命令 を 与え を た いと 思っ た ら , 
この ボタ ン を 利用 し な けれ ば な り ま せん 。 多く の 人 が WonderWitch で 作り た い プ ログ 
ラム は , イン タラ クティ ブ な 対話 型 プ ログ ラム の 要素 を も ちっ て いる で し ょ うか ら , ボ 
タン が どの よう に 押さ れ た か を 検出 し , 処理 に 反映 させ る た め の 仕組 み が 必 要 に な り 
ます 。 

すでに これ まで に 見 て きた サン プル プロ グラ ム で , START ボ タン が 押さ れ た ら 終 了 
と いう 仕組 み が 実 現さ れ て いま し た 。 こ れ は , key press check() と いう , 現在 押 
され て いる ボタ ン を 取得 する 関数 に よっ て 実現 きれ て いま す 。 


7 ボタ ン の 状態 を 画面 に 表示 する プロ グラ ム 


test14.c (List 4-1) は , key press check() を 使っ て , 現在 の ボタ ン の 状態 を 画 
面 に 表示 する サン プル プロ グラ ム で す 。 
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人 計 和 区 test14.bin の 実行 画面 


ij 三 0D3E ロ 
 。 凍 可 
1 


List 4-1 test14.c 


#1nclude < く stdio .h> 
#1include <sys/bios .h> 


Yo1d main() { 
static char str[16]: 
さや まぁ 


text screen ini() 
text put strind(1, 3, "X り 9): 
text put string(1, 4,。 "Y"): 


while(1) { 
/* ボタ ン の 押さ れ て いる 状況 を 取得 */ 
1 = key presS Check() : 
/* 取得 状況 を 16 進 4 桁 で 表現 */ 


BE ます EE(aE と 。 『 う は 王 04xT。 は 2 


tex 上 pu セ string(1, 1, Str) 
/* A ボ タン が 押さ れ て いた ら , その 旨 表 示 */ 
if(1 g KEY 和 ) 

text put string(1, 2, "AV): 
e1se 

text put string(1, 2, " 9): 
/* 以下 , 同様 ょ / 
If(1i & KEY B) 

text put string(2, 2, "B"): 
e1se 

text put string(2。 2。 " ず ) 5 
if(1 gs KEY X1) 

text pu string(2。 3, "17) 5 


e18e 


キー 入力 規 / ノ 


も ex も Pu も SEETmd す (2 3/ "7 
1f(1 g KEY X2) 

text pu string(3, 3, "29): 
el]se 

も ex も pu も SEringi(3。 3 ょ "92 
1 チ (1 g KEY X3) 

tex モ Put string(4。 3。 "3"): 
e1se 

text put string(4, 3。 "の 9): 
if(1 & KEY X4) 

text put string(5, 3, "49): 
el1gse 

text put string(5,。 3, " ")』 
1iE( せ g KEY Y1) 

text put string(2, 4,。 "19)』 
@1S@ 

text put strind(2, 4,。 7 の): 
1f(1 g KEY Y2) 

text put string(3, 4, "27) 5 
e1se 

text put string(3, 4, "の ): 
1f(1 & KEY Y3) 

text put string(4, 4, "39): 
e] se 

text put strind(4。 4, 7" の: 
1f(1 gs KEY Y4) 

text put strind(5, 4, "47) 5 
el1se 

text put string(5,。 4, "9: 
1f(1 gs KEY START) 

break: 


Function 4-1 キー 状態 取得 の 関数 
1nE near key_pres8_checK ( ) : 
返 値 ” シン ボル (Table A) が 論理 和 で 結合 され た 値 


剛 能 | 関数 を 呼び 出し た 時 点 で の , ボタ ン の 押し 下げ 状態 を 取得 し ます 。START, A, B, 
X1 一 X4, Y1 一 Y4 の 11 個 の ボタ ン の どれ が 押さ れ た 状態 な の か わか り ま す 。 返 値 に , 
KEY START な どの シン ボル で マス ク を か ける と , その ボタ ン が 押さ れ て いる の か ど 
うか が 判断 で きま す 。 
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TableA 返 値 が と る 値 


KEY START START ボ タン 
KEY A A ボ タン 
KEY B B ボ タン 
KEY X1 |x1 ボ タン 
KEY X2 X2 ボ タン 
KEY X3 X3 ボ タン 
|REY_X4 X4 ボ タン 
KEY Y1 Y1 ボ タン 
KEY Y2 Y2 ボ タン 
KEY Y3 Y3 ボ タン 
KEY Y4 Y4 ボ タン 


この 関数 は <sys/key.h> に 定義 され て いま す 。 <sys/key.h> は <sys/bios.h> に よっ て も イン クル ー ド さ 
れ ま す 。 


疫 ボタ ン で スプ ライ ト と 背景 を 近作 する プロ グラ ム 


ボタ ン の 状況 を 画面 に 表示 する 代わ り に , スプ ライ ト を 移動 きせ た り , 背景 を スク 
ロー ル さ せ た り すれ ば , ゲー ム で 行わ れ て いる よう な 処理 を 実現 で きま す 。 

test15.c (List 4.2) は , X ボ タン で スプ ライ ト を , Y ボ タン で 背景 を 動 す プロ グラ ム 
Ce 


当 test15.bin の 実行 画面 


キー 入力 規 Z9 


。 List 4-2 test15.c 


#include < く sys/bios .h> 
#1nclude "maru.h" 


#1nc1ude "inu.h" 


void main() 【{ 
uns1igned Char spr x = 108, spr y = 68, scr x =0, scry デ 0: 


征 届 過 生ま 
display contro1 (DCM SCR1 | DCM SPR) : 


/* maru.bmp を スプ ライ ト で 表示 */ 

Sprite se range(0, 1) ヶ 

font se co1ordata(1, 1, bmp _maru) 

palette set co1or(12, Ox7300): 

Sprite set char(0, CFM SPR UPPER ii(GH2S= ニ 99 IX OX200 319 


/* 背景 画像 を スク リー ン 1 に 表示 */ 

text se screen (SCREEN1 ) 

text screen init(): 

font set co1ordata(8, 28 * 18, bmp inu) : 


while(1) { 
for( = 0 1 < 1000: i++) 


1 = key PresS Cheock () : 


/* x ボ タン で maru.bmp の 表示 座標 を 変更 。 画 面 外 に 出 な いよ うに 処理 する 。+*/ 
if((1 & KEY X1) gss (spr y > 0)) 


SPF_ ーー ァ 

else ifF((1 & KEY X3) && (Spr y く 136) ) 
SD Y++: 

1f((1 sg KEY X2) &s (spr x < 216) ) 
SPDT ※++: 


el1se if((1i & KEY X4) && (spr x > 0) ) 


SPDT Xーー』 


/* Y ボ タン で スク リー ン 1 の 表示 座標 を 変更 */ 
if(1 & KEY Y1) 
SCY ニニ: 
e1se 1f(i & KEY Y3) 
SCF Y++: 
1f(1 & KEY Y2) 
SC ※+ オ > 
else 1E(i1 & KEY Y4) 
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SC エ ーー ァ 


/* スプ ライ ト , スク リー ン 1 の 表示 (位置 ) を 更新 する */ 
Sprite se 1ocation(0, SDr X, SPr Y)』 
SCreen Se も SCro11 (SCREEN1, SCr X, SCr Y): 


ifF(1 & KEY START) 
break: 


= 閥 プロ グラ ム の ボイン ト 

test15.< で は , ルー プ 処 理 内 部 で key press check() の 返 値 を 監 入 す る こと に よっ 
て , 押さ きれ た ボタ ン に 応じ た 処理 を 行い ます 。X ボ タン が 押さ れ た ら , スプ ライ ト の 表 
示 座 標 を 管理 する (spr x, spr y) の 値 を 変化 させ , Y ボ タン が 押さ れ た ら , 背景 の 
表示 座標 を 管理 する (scr x, scr y) の 値 を 変化 させ , START ボ タン が 押さ れ た ら 
ルー プ を 終了 し プロ グラ ム を 終え ます 。 

ルー プ 処 理 内 部 で 空 ル ー プ を 回 し て いる の は , この 処理 に よっ て プロ グラ ム の 反応 
速度 を 遅く し て や ら な いと , 座標 値 の 変化 が 速 す ぎ て , 画面 の 動き が わか り に くい た 
めで す 。 空 ルー プ で 待ち 時 間 を 作り , コン ピュ ー タ の 動作 時 間 を 人 間 の 感覚 に 合わ せ 
て いる の で す 。 

WonderWitch に は key press check() 以外 に も , ボタ ン が 押さ れる まで 待つ 
key wait() な どの 関数 が 用 意 さ れ て いま す 。 Function 2-4 や マニ ュ ア ル な ど で 確 認 し 
て , 適し た 用 途 に 使え を ば よい で し ょ う 。 


Function 4-2 キー 入力 を 待つ 関数 
ュ n near key_wai(): 
返信 シン ボル (Table A) が 論理 和 で 結合 され た 値 


l 機 能 ′ ボタ ン の 押し 下げ 状態 を 返す の は key press check() と 同じ で す が , key_wait() 
は , 何 か ボ タン が 押さ れる まで 関数 内 部 で ルー プ し て 待ち ます 。 で すか ら , 
key_ wait() を 使う と , ボタ ン が 押さ れる まで 一 旦 停 止 と いう 処理 を , 簡単 に 実現 
で きま す 。 


キー 入力 』 電 8] 


TableA 返 値 が と る 値 


|kEy_sYART 。 |START ボ タン 

MA A ボ タン 

KEY B B ボ タン 

KEY X3 X3 ボ タン 

key x4 |X4 ボ タン 
Y1 ボ タン 
Y2 ボ タン 
Y3 ボ タン 


KEY Y4 


この 関数 は <sys/key.h> に 定義 され て いま す 。<sys/key.h> は <sys/bios.h> に よっ て も イン クル ー ド さ 
れ ま す 。 


ファ イル シス テム 


通常 , WonderSwan の よう な ROM カ ー ト リッ ジ に よっ て ソフ トウ ェ ア を 供給 する プ 
ラッ ト フ ォ ー ム で は , ファ イル シス テム を も っ て いま せん 。ROM カ ー ト リッ ジ で 供給 
され る ゲー ム の 場合 , 登場 人 物 の 顔 の 絵 を 差し 替え ん たり, プロ グラ ム を 取り 奉 え た り 
する 必要 が あま りな く , そう し た いと いう 要求 も 大 きく は な い の で , ファ イル シス テ 
ム が な く て も 困ら な い の で す 。 普通 . ファ イル シス テム は , HDD や CD-ROM や FD な ど 
の よう な , 2 次 記憶 と 呼ば れる メデ ィ ア の 上 で 構築 きれ る も の で , 1 次 記憶 で ある ROM 
や RAM と いっ た メモ リ 上 で 利用 され る こと は 少な い の で す 。 

し た が っ て , ROM カ ー ト リッ ジ に よっ て ソフ トウ ェ ア を 供給 する プラ ッ ト フ ォ ー ム 
で は , ANSI C で お な じみ の , fopen () , fc1ose () , Eread(), fwrite() と いっ た 
ファ イル 入出 力 関 数 群 は 存在 し な い の が 一 般 的 で す 。 

し か し , WonderWitch 上 で は , プロ グラ ム で 利用 する デー タ を 簡単 に 交換 し た り , 
プロ グラ ム を 取り 奉 え た りす る 需要 が 高い の で , ファ イル シス テム が 用 意 き れ て いま 
す 。 TransMagic.exe で さま ざま な デー タ を ファ イル 単位 で 転送 で きる の も , 
WonderWitch 上 に ファ イル シス テム が ある か ら な の で す 。 

ファ イル シス テム が 用 意 き れ て いる と いう こと は , ファ イル 入出 力 関数 群 も 用 意 き 
れ て いる と いう こと で す 。 
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油 : rom0 領 域 に ある テキ スト ファ イル を 表示 する プロ グラ ム 


test16.c (List 4-3) は , rom0 の 領域 に 転送 し た test16. 3 テ 
キス ト 表 示 処 理 を 行っ て いる 部 分 は 参考 に 見 て で もらう と し て , ファ イル を 開き , 読み 
込み , 閉じ て いる 部 分 に 注目 し て くだ さい 。 言語 を 使う 人 に は な じみ 深い , 
て vV 


fopen () , fread() , Fc1ose() を , 普通 に 使っ る こと が わか り ま す 。 


和 グ test16.bin の 実行 画面 


括 incLude <=Edio。h:> 
井 IinC1udeG < 呈 tEFimng.h> 
昔 inc1lude 罰 守 DI5 h> 
半 define HUFFER_ 王 』 マ E テロ ロロ せ 
char fnr tr[BUFFER_ 呈 # マ E]j 
yaid mauin() て 
ochar 時 *hndi 

oin キ t 1」 JJ。 COun Timnei 
癌 当 四 コ fnr ドキ fPi 
ot モー 5gCFEGBn_imitC)』 | 
ゥ /* ま foPGn で う で ファ イル を 開く キ デ 


oifCCFfp fopen(” ン FomD/ キ test1 


List4-3 test16.c 


#1inc1ude < く stdio .h> 
#1nocl1ude < く string. ロ > 
#1nclude <sys/bios .h> 


#define BUFEFER STZE 2048 
char far str[BUFFER SLIZE] 


void main() { 
char far *headz: 
下 陳 も 。 ]。 GOURNE。 HmGS 
FTLE far *FD: 


text screen 1nit() 


/* fopen () で ファ イル を 開く */ 

if((fp = fopen("/rom0/test16.C", "r") ) == NULL) { 
text pu string(0, 0, "fi1e no 上 found. の): 
key wai(): 


return: 
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/* fread() で ブフ ァイル を 読む */ 
count = fread(str, 1, BUEFEFER STZE, fD) / 


/* fc1ose () で ファ イル を 閉じ る */ 


foc1ose(fp) 
for(1i = 0, 1ine = 0, head = strz 1 < く count 1 ユ ++) 
1f(str[1] == "'\ と ") 人 
Str[1] = "'\0!/ 


text pu string(0, 1ine, head) : 
1ine += str1en(head) / 28 + 1: 
if(11ne >= 18) { 
1f(key wait() & KEY _START) 
returnz 
For(] = 0: ] < 18: ]++) 
text put string(0, ], 
1f(1ine != 18) 【 
text put string(0, 0, 
head + (strl1en(head) / 28 + 1 - (1ine - 18)) * 28)j 


6 LA 計 


1ine 一 = 18: 
} 
e]Se 
1ine = 0: 
} 


head = st エ + ュ i オ 2』 


key_ wait() ヶ 


癒 : romO 領 域 に ある テキ スト ファ イル を 改変 / 表 示す る プロ グラ ム 


WonderWitch で , ユー ザ が 一 般 的 に 使用 する ファ イル シス テム に は , rom0 と ram0 の 
2 つの 領域 (ディ レク トリ ) が あり ます 。 


> 宮 romO 領 域 

rom0 領 域 は プロ グラ ム エ リ ア と も 呼ば れ て いて , 主 に 実行 形式 ファ イル を 格納 し て 
お く の に 用 いら れ ま す 。 rom0 領 域 は は フラ ッシュ ROM と いう 種類 の メモ リ 上 に 構築 き 
れ て いま す 。 フ ラッ シュ ROM は 半導体 ROM な の で , 一 般 的 な 半導体 ROM と 同様 に , 電 
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源 が 切れ て も , その 内 容 を 保持 し ます 。 し か し , RAM に 比べ て き 込み が 人 遅く , 頻繁 
な 書き 込み で 消耗 する 可能 性 が ある , と いっ た 欠点 も あり ます 。 
test17.c (List 4-4) は rom0 領 域 に tmp.txt と いう 名 前 の ファ イル を 作成 し , 
“1234567890123456" と いう 文字 列 を 書き 込む プロ グラ ム で す 。 test18.c (List 4-5) は , 
test17.c で 作成 され た tmp.txt を 読ん で , 内 容 を 表示 する プロ グラ ム で す 。 
WonderWitch 上 で の パス 指定 の 区 切り 文字 は , DOS や Windows で 使わ れ て いる “ ま " 
で は な く , UNIX で 使わ れ て いる “/"” を 用 いま す 。 フ ァイル 名 の 指定 の と き は 注意 し 


で ぐだ さい ゆい 。 


ョ 衣 衣 租 test18.bin の 実行 画面 


| 1 フタ 85E78 ヨ BHT123S5E 


List4-4 test17.c 


#inc1ude < く std1o.h> 
#inc1ude < く string.h> 
#inc1ude <sys/bios .h> 


char Str[17], 


void main() { 
FTTLE far *FDpz 


Fclose (EFDP) 


Strcpy (Str, "1234567890123456"): 


fp = fopen("/rom0/tmp . も Ext", " 


fwrite(str, 1, 16, fp) 
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List4-5 test18.c 


#1nc1ude ぐ stdio.h> 
#1nc1ude <sys/btos .h> 


GDAE、 人 SEE ば 


void main() { 
FTTLE fa エ テ メ FDz 


fp = fopen("/rom0/tmp.t モ xt"。 "r9)』 
fread(str, 1, 16, fp): 
Fol1ose(fFP) 

text screen ini() 


str[16] = 0: 
text pu string(0, 0, st と )』 


key wait(): 


> 底 ramO 領 域 

ワー クエ リア と も 呼ば れ て いる ram0 領 域 は , 電池 で 保護 され た SRAM と いう 種類 の 
メモ リ 上 に 構築 され て お り , rom0 領 域 (フラ ッシュ ROM) に 比べ て 高速 な 書き 込み が 
行え ます 。 通常, 半導体 RAM で は , 電源 が 切れ る と , その 内 容 を 失っ て し まい ます が , 
カー トリ ッ ジ 内 に ある バッ クア ッ プ 用 の 電池 が 電気 を 供給 し て いる た め に , 内 容 が 保 
持 さ れ ま す 。 

test17.c, test18.c で 作成 / 参 照 し て いる ファ イル を “ram0/tmp.txt" に し て みて く 
だ さい 。 ram0 領 域 に ファ イル を 作成 し , 参照 する こと が で きま す 。 


仙 : 2048 バ イト より 大 き な フ ァイル を 作成 する 


WonderWitch の ファ イル シス テム で は , プロ グラ ム か ら fopen () な ど に よっ て 新規 
に 作成 きれ る ファ イル は , 2048 バ イト より 大 きく する こと が で きま せん 。 そ こ で プロ 
グラ ム 中 で 2048 バ イト より 大 き な フ ァイル を 新規 作成 する た め に 関数 creat () が 用 意 
され て いま す 。 

test19.c (List 4-.6) で は , creat() を 使っ て ファ イル を 作成 し て か ら , その ファ イ 
ル の 読み 書き を 行っ て いま す 。 実行 する と 4096 バ イト の 大 き さ を も っ た バイ ナリ ファ 
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イル tmp2.txt を 作成 し , 16 ビ ッ ト (2 バイ ト ) の デー タ と し て 0-2047 (合計 4096 バ イ 
ト の デー タ ) を 書き 込み ます 。 その後, tmp2.txt を 読み 込ん で ,。 ファ イル の 最後 の 2 バ 
イト の 値 “2047” を 表示 し ます 。 指定 する ファ イル サイ ズ の 単位 が , 1 ブロッ ク 128 バ 
イト と する ブロ ッ ク 数 で ある と ころ に 注意 し て くだ さい 。 

WonderWitch で は , あら か じ め 作 成 し た ファ イル の サイ ズ を 超え な いよ うに 読み 書 
き を 行わ な けれ ば な り ま せん 。 fopen () に よる ファ イル の 新規 作成 で は , 自動 的 に 16 
プ ブロッ ク (2048 バ イト ) の ファ イル が 作成 され て いた の で , その 大 き さ の 範囲 内 で フ 
ァイル を 操作 で きた の で す 。 

プロ グラ ム の バグ な ど に よっ て , ファ イル サイ ズ を 超え る ファ イル 操作 を 行っ た 場 
合 , 最悪 , WonderWitcth カ ー ト リッ ジ の 修理 と いう 事態 まで あり えま す の で , 注意 し 
て くだ さい 。FreyaBIOS, OS の 配置 場所 と 同じ フラ ッシュ ROM 上 に ある , rom0 領 域 へ 
の 書き 込み に は , 十分 な 注意 が 必要 で す 。 


、 List4-6 test19.c 


#1ncl1ude <stdio.h> 
#1nc1ude <sys/fFont1 .h> 
#1nc1ude <sys/bios .h> 


void main() { 
static char Str[16]: 
Ettd 二 0) 
FTLE far *fD』 


/* 読み 書き 可能 な 128X32 バ イト の 大 き さ を も っ た tmp2 .txt を rom0 に 作成 */ 
creat("/rom0/tmp2 .txt"/ FMODE W | FMODE_R, 32): 


/* tmp2 .txt に 書き 込む */ 

fp = fopen("/rom0/tmp2 .tExt"。 "w7) ょ 

for(1i = 0: 1 < 128 * 32 / szeof (int) : エ ++) 
まお WEEEG(&L。 2 の 。 1/。 Ep) 7 

fclose (fp) 


/* tmp2.txt か ら 読 み 込 む */ 

fp = Fopen("/rom0/tmp2.txt"。 " エ ") 
Fseek(fp, 4094, SEEK SET) : 

ま よぶ ead(& す 。 2。 1。 EB) 7 

Fclose (fp) 


text Screen in1(): 

人 維 剖 希 に ま ( 競 人 E ま 。 人 生 きか ぁ 

text Put string(1, 1, st と) : 
key_ wait () : 
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Function 4-3 ファ イル を 作成 する 関数 


ュ n creat (Cong 上 char far * り ga た と, 1n 上 り errmS, 1nmE Coun と ) : 


別表 = *pazh: 作 成す る ファ イル 名 
pezmws : 作成 する ファ イル の 属性 
coun を : 作成 する ファ イル の ブロ ッ ク 数 


返信 E FS SUOCcES, その 他 


爆 態 ファ イル へ の 入出 力 を 行う 場合 は , まず ファ イル を 作成 し て お き , ファ イル の 大 き 
さ を 変 えな いよ うに 扱わ な けれ ば な り ま せん 。creat () は , 大 き さ が coun と 128 バ 
イト , 属性 が perms, 名 前 が patnh と いう ファ イル を 新規 に 作成 し ます 。 正 し く 作 成 
で きた 場合 に は , E FS SUcCcES が 返り ます 。 そ れ 以 外 の 返 値 が す 得 ら れ た 場合 は , フ 
ァイル の 作成 に 失敗 し て いま す 。 


この 関数 は <sys/fcntl.h> に 定義 され て いま す 。 


mmap() 


WonderWitch に お ける ファ イル シス テム は , ROM や RAM と いっ た , CPU と バス 接続 
され た メモ リ 空 間 上 に 構築 され て いま す 。 つ まり , ファ イル 形式 の デー タ は , ファ イ 
ル シ ス テム 上 で ファ イル で ある と 同時 に , メモ リ 空 間 上 に 置か れ た デー タ で も ある わ 
け で す 。 フ ァイル 上 の デー タ を た だ 読み 出し た い だ け の 場合 , すでに メモ リ 空 間 上 に 
存在 する デー タ を わざ わざ ファ イル 入力 関数 で 読み 出す の は ムダ で す 。 フ ァイル 入力 
関数 を 使用 する 場合 , バッ ファ 領域 と し て メモ リ を 用 意 し な けれ ば な り ま せん が , 読 
み 込 も うと する デー タ も メモ リ 上 に ある の で , メモ リ 上 で ムダ な コピ ビー を し て いる こ 
と に な る の で す 。 

WonderWitch で は , ファ イル シス テム の 特徴 を 考慮 し て , ファ イル 形式 の デー タ へ 
の ポイ ンタ を 取得 する 仕組 み が 用 意 さ きれ て いま す 。 音声 デ ー タ や 曲 デ ー タ に アク セス 
する た め に 使用 し た mmap () が そう で す 。 mmap () は rom0 領 域 上 の 指定 ファ イル へ の ポ 
イン タ を 返し て くれ る の で , ファ イル 形式 の デー タ に 簡単 に アク セス する こと が で き 
ます 。 こ の 仕組 み を 使え を ば , バッ ファ 領域 も 用 意 せ ず に 済み , メモ リ 上 の コピ ー$ も 行 
われ ませ ん 。 
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疫 , mmap() を 利用 し て テキ スト ファ イル を 表示 する プロ グラ ム 


test20.c (List 4-7) は , test16.c (List 4.3) を ベー ス に , mmap() を 用 いて rom0 領 域 
の テキ スト ファ イル test20.c の デー タ に アク セス する よう に 改変 し た プロ グラ ム で す 。 


実行 の 際 に は , test20.c も rom0 領 域 に 転送 し て くだ さい 。 


ゴ 
に っ 】 

凍 
《1 
し 
Ku】 

4 
ト O 
ed 
ど び 
デ 】 

No) 
洒 
で 

コ i 
還 
田 


韻 includ ドア メオ 


Schar- Fnir- hendd」 fn ロ r * 生 FE 
Sint ii。 5 OUun も を 。 1ine,。 ch_G 
mum キョ 

oFILE far fpi 


0 Gt an pointer to na Fil 
人 三 mmmnP( リ サゲ F ロ nm デキ モロ ェ キ テロ 。 で 


呈 ロ テ 己 キ グ 
リグ FoOmD/ キ eg キモ 2 ロロ. で 


List 4-7 test20.c 


#1nc1ude <stdio .h> 
#1nclude <string.h> 
#1incl1ude <sys/focnt1] .h> 
#1inc1ude < く sys/Dbios .h> 


Void main() 【 
char far * メ head, fFar * ま St エ : 
nt 1。 ], count。 1ine, ch coun』 
FILE far * メ fpz 


/* get a pointer to a fi]e */ 
str = mmap("/rom0/test20.C") : 


/* get fi1e size */ 
fseek(fp, 0, SEEK END) : 
count = fte11] (fp) 


fclose(fp) 


text screen 1n1(): 


1f (st 上 [1] = ニー "\r') { 


fp = fopen("/rom0/test20.C",。 "エサ"): 


for (1=0 , 1ine=0, head=s モ ェ , Ch Coun モ =0: 1 < Coun: 


ュ ++, Ch COun++) 


mmapf) を 8 の 


text put substring(0, 1ine, head, ch count): 
1ine += ch count / 28 + 1: 
さま (ne = 18) # 
1f(key wait() sg KEY START) 
eturnz 
For(] = 0z: ] < 18: ]++) 
text put string(0, ], 
if(1ine != 18) { 
text put substring(0, 0, 
head + (ch count / 28 + 1 - (1ine - 18)) * 28, 
Ch_COunE = (Ch_oount / 28 ユー (1Ene- 18)) * 28) 


w "): 


1ine -= 18: 
} 
e1se 
1ine = 0: 
1 


head = Str キュ オキ 2』 


ュ オ キオ: 
ch count = -1: 
} 
key_ wait(): 
} 
= 底 プロ グラ ム の ボイン ト 


ファ イル サイ ズ を 取得 する た め に fopen () で ファ イル を 開い て いま す が , デー タ に 
アク セス する 処理 は , mmap() に よっ て 得 ら れ た ポイ ンタ str で 行っ て いま す 。 
fread() も バッ ファ 領域 も 使っ て いま せん 。 


Fneti6n 434。 ファ イル デー タ へ の ポイ ンタ を 得る 関数 


Yo1d far *mmap(ConS 上 ohar Far * ワ ga と) : 
昭 基 | *pacp: フ ァイル 名 を 表す 文字 列 
衣 信 ファ イル デー タ へ の ポイ ンタ 


Il 欄 貞 指定 され た ファ イル の , メモ リ 空 間 上 で の 位置 を . ポイ ンタ と し て 取得 し ます 。 こ 
の 機能 に よっ て , ファ イル 操作 に 頼ら な く と も , ファ イル の 中 身 を 見 る こと が で き 
ます 。 た だ し , mmap() で アク セ モス で きる ファ イル は rom0 領 域 の も の だ け で す 。 指 
定 し た ファ イル が 見 つか ら な か っ た 場合 は , NULL が 返り ます 。 


この 関数 は <sys/fcntl.h> に 定義 され て いま す 。 
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リソー ス 


プロ グラ ム の 中 で 使う デー タ を 得る 方 法 と し て , ファ イル 入出 力 と mmap () を 紹介 し 
まし た が , WonderWitch で は リソー ス と いう 手段 も 利用 する こと が で きま す 。 

リソー ス と は , 実行 形式 の 中 に 埋め 込ん だ デー タ の こと で す 。WonderWitch 転 送 用 
の ファ イル を 作成 する “mkfent.exe” を 使う こと で , 実行 形式 に リソー ス 形 式 の デー 
タ を 埋め 込む こと が で きま す 。 埋め 込ん だ デー タ に は , BYTE 型 ポイ ンタ resource 
で アク セス ずる こら が で きま す 。 


2 立 リソー ス デ ー タ と し て 埋め 込ま れ た 画像 を 表示 する プロ グラ ム 


部 
test15.c< の キャ ラク タデ ー タ を , inuh や maruh れ か ら で は な く , リソー ス デ ー タ と し て 
埋め 込ま れ た inu.fr や maru.fr か ら 得 る よう に 書き 換え た も の が test21.c で す 。 


List4-8 test21.c 


#1nclude <sys/Db1os .h> 


#1nclude く reSou エ Ce .h> 
extGrn reS 七 Ear * GSOUrCGz 
vo1d main() { 


unS1igned char Spr x = 108, spr y= 68, scr x =0, sor y= 0z 


bo0 中 隊 時 


disp1ay contro1 (DCM SCR1 | DCM SPR) 

Sprite se range(0, 1): 

palette se color(12, 0x7300) 

Sprite se char(0, CFM SPR_UPPER | (12 - 8) テ * 0z200 | 1): 
text set screen (SCREEN1 ) : 


text screen ini(): 


/* リソー ス の inu の デー タ を 使う */ 
font se co1ordata(8, 28 * 18, 
(BYTE far *) resource + szeof(res image ) ) 


/* リソー ス の maru の デー タ を 使う */ 
font se co1ordata(1, 1, 


リソー ス 二 9] 


(BYTE Far *) reSOu エ FCG + GSOUFCG->S1ZG*16 + StzeofF(res 1maqge 七 ) ) 


while(1) { 
Eor( = 0: 1 < 1000: ュ T+): 


1 = key presS Check() 


1iE((1i sg KEY X1) && (spr y > 0) ) 
SDF ーー ァ 

else 1F((1 &g KEY X3) gg (spr y ぐ く 136) ) 
SDP エ Y++: 

1f((1 g KEY X2) gs& (Spr x く 216) ) 
SP エ ※++: 

e1se if((i & KEY X4) ss (spr X > 0) ) 


SD エ ーー: 


1f(i g KEY Y1) 
③G ま で V ニ ニッ 

else 1f(i & KEY Y3) 
SCF Y++: 

if(1 g KEY Y2) 
SCE XX よ す : 

else 1f(1 & KEY Y4) 


き CE: バー ニッ 


Sprite set ]ocation(0, SDr_ x, SPr Y)。 
SCreen Set SCro11 (SCREEN] , SCr x, SCr Y) ヶ 


1f(1 s KEY START) 
break: 


し 


= 次 プロ グラ ム と リソー ス デ ー タ を 実行 形式 に する 
この プロ グラ ム の 実行 形式 を 得る た め に は , まず , bmp フ ァイル か ら .fr フ ァイル を 
作成 し ます 。 inu.fr の 作成 に は bmpcny.exe を 利用 し , 


> bmmpcnV nu.bmp 


を 実行 肥 ま お 8 maru.fr も 同様 に 作成 | く だ 信 W。 
次 に , mkfent.exe を 利用 し て , WonderWitch 転 送 用 実行 形式 を 作成 し ます 。 
mkfent.exe を 利用 する 場合 に は , 動作 を 規定 する test21.cf (List 4.9) の よう な .cf フ ァ 
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イル が 必要 に な り ま す 。test21.cf で は , 読み 出し , 実行 可能 な ファ イル test21 を 作成 す 
る 設定 に な っ て いま す 。test21.c を コン パイ ル し て 得 ら れる test21.bin に inu.fr, maru.fr 
を リソー ス デ ー タ と し て 付加 し , WonderWitch 転 送 用 ファ イル test21.fx を 作成 する よう 
に な っ て いま す 。 


4.9 test21.cf 


name: も est21 

tnfo: test21 

mode: rx 

reSOUFCe: 1nu.fr maru.fr 
SOurCe: test21 .bin 
output: test21 .fx 


ぞ し て 。 
> mkfFent tes21 、cFE 


を 実行 する こと に よっ て , test21.fx が 作成 され る の で , これ を WonderWitch に 転送 , 実 
行 し て くだ さい 。 test15.c (List 4-2) と 同様 の 実行 結果 が 得 ら れ ま す 。 
bmpcnv.exe で 作成 され る キャ ラク タデ ー タ の 場合 , -c- オ プシ ョ ン で 得 ら れる ファ イ 
ル で 表現 きれ て いる デー タ の 頭 に , res image て 構造 体 が つい た 状態 で .cf フ ァイル 
に 列挙 し た 順に リソー ス 領 域 に 格納 され ます 。 次 の デー タ の 先頭 まで の 距離 は , 
res image t 構 造 体 の 先頭 に 含ま れる res t 構 造 体 の メン バ size に 16 を か ける と 算 
出 で き ます 。 リ ソー ス 領 域 に 格納 され た デー タ は , 16 バ イト を 1 単位 と し て いる の で , 
距離 を バイ ト 単 位 で 計算 する 場合 に は , 16 を か け ま す 。 こ うし て 算出 され る 距離 を 読 
み 飛 ば し な が ら , resource 以 降 に 格納 され て いる メモ リ 和 領域 を 進ん で いく と, 格納 
され て いる 順番 で リソー ス デ ー タ に アク セス で きる 仕組 み に な っ て いま す 。 
test21.c の 18 行 目 


/* リソー ス の inu の デー タ を 使う */ 
font se colordata(8, 28 * 18, 


(BYTE far *) reSsourCe + S1zeoF(res image ) ) : 


で は , リソー ス 領 域 の 先頭 に 格納 され た デー タ inu.fr か ら , res image 構造 体 を 読 
み 飛 ば し て 実 デー タ 部 分 に アク セス し て いま す 。 ま た , test21.c の 22 行 目 


リッ ソース 二 93 


/* リソー ス の maru の デー タ を 使う */ 


Font set co1ordata(1, 1, 
(BYTE far *) reSOurCe 十 reGSOuFC@->S1ze*16 


Ss1zeofF(res 1mage て ) ) 


で は , 2 番目 の リソー ス デ ー タ と し て 格納 きれ た デー タ maru.fr に アク セス する た め , リ 
ソー ス 領 域 の 先頭 か ら 1 番目 の リソー ス デ ー タ (inu.fr) の サイ ズ 分 読み 飛ば し , そこ 
か らき さら に , res image て 構造 体 を 読み 飛ば し て 実 デー タ 部 分 に アク セス し て いま す 
(Fig.4-6) 。 


リソー ス 領域 の フォ ー マ ッ ト 


_TeSOUCe 
size : inu.fr の サイ ズ 


res_image 構造 体 


sizeX16 バ イト 
画像 デー タ 本 体 


res_image 1 構造 体 


maru.fr 


7 宙 : 画像 以外 の リソー ス デ ー タ 


キャ ラク タデ ー タ 以外 に も , 曲 デ ー タ や 音声 デー タ を リソー ス 領 域 に 含め る こと が 
で きま す 。 画像 デー タ に 付加 され る res image て 構造 体 を は じ め , 音源 ドラ イ バ で 再 
生き れる 曲 デ ー タ に 付加 きれ る res music 構造 体 , 音声 デー タ に 付加 され る 
res voice t 構 造 体 な ど び , デー タ を リソー ス 領 域 に 埋め 込む た め に 必要 と な る デー タ 
ヘッ ダ 構 造 体 は 。 <resource.h> に 定義 され て いま す 。 リ ソー ス を 利用 する プロ グラ ム を 
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書く 場合 に は , 1 度 , resource.h を 読ん で お く こ と を オス ス メ し ます 。 

sndcny.exe (p.73) で 作成 し た デー タ の 拡張 子 が .f だ っ た こと か ら 予 測 で きる よう に , 
bmpcnv.exe や sndcnv.exe で 変換 し て 得 ら れる 拡張 子 . の デー タ は リソー ス 形 式 に な っ 
て いま す 。 音源 ドラ イ バ な ど は リソー ス 形 式 の デー タ を 鳴ら す よ うに 作ら れ て いる の 
で , これ ら の デー タ を リソー ス 領 域 に 埋め 込ん で 利用 する 場合 に は , リソー ス デ ー タ 
の 先頭 部 分 の 構造 体 を 読み 飛ば さ な い で , bgm_pl1ay() や voice_p1ay () に 渡す よう 
に し て くだ さい 。 

実行 形式 に デー タフ ァイル を 埋め 込む こと の で きる リソー ス の 仕組 み を 使う と , プ 
ログ ラム の 動作 に 必要 な ファ イル を 1 つ に する こと が で きる の で , ファ イル が 足り な く 
て プロ グラ ム が 実行 で き な い と いう 問題 を 起こ き な く て すみ ます 。 


メモ リ の 使い 方 


ここ まで の サン プル プロ グラ ム の 中 で , C 言 語 の 通常 の 書き 方 と は いく つか 異な る 部 
分 が ある こと に , 気がつい た 方 が いる か も し れ ま せん 。 違和感 の 原因 を 整理 する と , 
以下 の 2 点 が あげ られ る で し ょ う 。 


・ す べ て の 配列 を グロ ー バ ル も し く は スタ ティ ッ ク で 宣言 し て いる 
・ ポ イン タ に far と いう 修飾 子 を つけ て いる 


WonderWitch に は , 特に ポイ ンタ 周辺 に , 独特 の クセ が あり ます 。 配列 も 実際 に は 
内 部 的 に ポイ ンタ を 使っ て いる の で , この クセ の 影響 を 受け る の で す 。 

この クセ は , x86 系 16 ビ ッ ト CPU の 設計 自体 に 起因 し て いる た め け っ こう 根 が 深い 問 
題 で す 。 最 近 主 流 の アー キテ クチ ャ に は 見 られ な い 問 題 で す の で , 他 の プラ ッ ト フ ォ ー 
ム 上 で の プロ グラ ミン グ で は , まず 章 遇 する こと は な いで し ょ う 。 

この クセ に つい て 詳細 に 述べ る こと は , 本 書 の 範囲 を 越え を る の で 行い ませ ん 。 し か 
し , ロー カル で 宮 言 し た スタ テイ ィ イッ ク で な い 配 列 や , Ear を つけ て 宣言 し て いな い ポ 
イン タ を 利用 する こと で , プロ グラ ム が 意図 し た と お り に 動か な い 可 能 性 が ある こと 
だ け は 覚え て お いて くだ さい 。 こ の こと を 覚え て お け ば , C 言 語 の 文法 上 は 正しい が , 
WonderWitch の 流儀 に は 合っ て いな い プ ログ ラム を 書い て いる こと に 気付 か ず 四 苦 八 
昔 す る , と いう 事態 が 発生 する 回 数 は , か な り 少 な く な る で し ょ う 。 特 に, 規模 の 大 
きい プロ グラ ム を 王 ぐ 坦 合 に は 。 注意 し まし ょ う 。 
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夫 バッ チ フ ァイル 


Windows を 含む MS-DOS 系 列 の OS で は , コマ ンド ライ ン か ら 命 令 を 1 つ ず つ 実 行き せ 
る の で は な く , OS に 命令 の まとまり を 連続 実行 させ る 機能 が あり ます 。 命令 の ま と ま 
り を 記述 し た 「 バ ッ チ ファ イル 」 を 作成 し , これ を OS に 渡し て 処理 を 行わ せま す 。 バ 
ッ チ ファ イル を 使う と , プロ グラ ム の コン パイ ル に 必要 な 複数 の 処理 , た と えば , 画 
像 , 音声 ファ イル の 変換 と ソー スプ ログ ラム の コン パイ ル を , まとめ て 実行 さき せ る こ 
だ で きま 


疫 サン プル プロ グラ ム を すべ て コン パイ ル す る バッ チ ファ イル 


mkfullbat (List 4-10) は , 4 章 の サン プル プロ グラ ム を すべ て コン パイ ル す る バッ チ 
ファ イル で す 。 

Windows は 拡張 子 “.bat' で ある ファ イル を , 自動 的 に バッ チ フ ァイル と 見 な し ます 。 
これ を 実行 する た め に は MS-DOS プ ロン プ ト で 


> mkfFu11 .bat 
も し く は 
> mkfFu11 


と 入力 し ます 。 す る と , バッ チ フ ァイル の 1 行 目 か ら 順 に コマ ンド ライ ン に 打ち 込ん だ 
の と 同じ 処理 が 行わ れん ます 。 


List 4.10 バッ チ フ ァイル の 例 “mkfull.bat” (4 章 の サン プル 全部 を コン パイ ル す る ) 


あー 
bmpcnV -C maru.bmp 


bmpcnV -C nu.bmp 
bmpcnV maru.bmp 


bmpcnV inu.Dmp 


LCo86 =Qo te8gE14.D1m 上 e8E14。c 
1cc86 -o test15.bin test15 .c 
1cc86 -o test16.bin est16.c 
1cc86 -o test17.Din Eest17.cC 
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1cc86 -o test18.bin tes18 . 
1cc86 -o test19.bin test19. 
1cc86 -o test20.bin test20. 
1cc86 -o test21 .bin test21 . 


Q 1Q に の 


mkfen も test21 .cE 


7 宙 : 引数 の 参照 や 条件 分 岐 を 行う バッ チ フ ァイル 


バッ チ フ ァイル 内 で は 引数 の 参照 や 条件 分 岐 処理 も 行う こと が 可能 で す 。 
mknumubat (List 4-11) は , 引数 に 与え られ た 番号 の サン プル プロ グラ ム の み を コン 
パイ ル す る バッ チ フ ァイル で す 。 


> mkmum 14 


> mulknum 15 


で 行わ れる 処理 が 違う こと を 確認 し て くだ さい 。 

バッ チ フ ァイル の 詳し い 記 述 方 法 に つい て は , MS-DOS の コマ ンド に 関す る 資料 に 触 
れ ら れ て いま す の で , 自分 に 必要 な 範囲 で 参照 し て 使う と よい で し ょ う 。 

ちな み に , UNIX 系 の OS で は バッ チ フ ァイル と 同様 の 機能 を | シェ ルス クリ プ ト 」| と 
いう 機能 で 実現 し て いま す 。 


Hist 4-11 。 バッ チ フ ァイル の 例 “mknum.bat "(4 章 の サン プル を 番号 指定 で コン パイ ル す る ) 


1 『 先 1 リ "= ニ ="14" goto tes14 
1f "和合 1"=="15" goto test15 
1f "名 1" ニ =W16" goto test16 
1 "を 1 "= ニ = リ 17" goto tes 巧 17 
1 " 此 1 サ ニニ "18" goto test18 
1f "も 1"=="19" goto test19 
1f "る 1"= ニ ="20" goto test20 
1F "る 1"=="21" goto tes モ 21 
goto end 

:test14 

:test16 

itest 上 17 

:test18 


バッ チ フ ァイル =。 十 。 9Z 


:test19 
:test20 
1cc86 -o test "も 1".bin test 上 "る 1"。C 


goto end 


:tes モ 15 

bmpcnV -C maru.Dmp 

bmpcnV -o nu.bmp 

1cc86 -o test"%1".Din test" も 1" .C 
doto enQ 


:test21 

bmpcnYV maru.bmp 

bmpcnV nu.bmp 

1cc86 -o test" リ る 1" .bin test 上 "も 1"。c 
mkfent test21 .cF 


: end 


make と は , バッ チ フ ァイル や シェ ルス クリ プ ト を 拡張 し た 機能 を 提供 する ユー ティ 
リティ で す 。 こ れ は OS に 組み 込ま れ た 機能 で は あり ませ ん の で , イン スト ー ル し て 使 
用 環境 を 設定 し て や ら な けれ ば な り ま せん 。WonderWitch で は , 開発 環境 の 中 に 
kmmake と いう make の 一 種 が 含ま れ て いる の で , それ を 利用 する こと が で きま す 。 
make に 「B と いう ファ イル を , A と いう ファ イル か ら , 。 と いう プロ グラ ム を 利用 し 
て 作成 する | と いう ファ イル 変換 の ルー ル を 記述 し た ファ イル を 渡し て や る と , その 
ルー ル に 従っ て ファ イル の 作成 を 行い ます 。 ま た , ファ イル の 更新 日 時 を 見 て , 変換 
先 の ファ イル より も 変換 元 の ファ イル が 新しい 場合 に の み , 変換 を 実行 する の で , バ 
ッ チ ファ イル より も る 効率 よく 処理 を 行え を る よう に な っ て いま す 。 

make を 使え ば , プロ グラ ム の コン パイ ル か ら , 実行 ファ イル の 作成 まで を , 効率 よ 
く 手軽 に 行 を る よう に な り ま す 。 
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疫 , サ ンプ ルプ ログ ラム を すべ て コン バイル する makefile 


make で は , ファ イル makefile に 記述 され た ルー ル に 基づい て 処理 を 実行 し ます 。 例 
えば , 先ほど の mkfull.bat と 同様 の 処理 が 行え を る よう に makefile を 記述 する と , List 4-12 
の よう に な り ま す 。 

この makefile を 実行 する た め に は , makefile の ある ディ レク トリ で 


> Inrmmake 


と 実行 する だ け で す 。 

1 回 実行 する だ け で は , mkfullbat と 同じ 結果 に な り ま す が , も う 1 回 実行 し て みる と 
違い が わか り ま す 。"default is up to date- と メッ セー ジ が 出る だ け で , まっ た く 処 理 
が 行わ れ ま せん 。make で は , ファ イル の 更新 日 時 を 見 て , 不 必要 と 判断 され る 処理 は 
行わ れ な い の で す 。 mkfull.bat で は 実行 ごと に すべ て の 処理 が 行わ れる の で , ファ イル 
数 が 増え る と どん どん 効率 が 悪く な っ て いき ます 。 適当 な ソー ス フ ァ イル を 更新 し て 
か ら make す る と , その ファ イル に 関連 する 処理 の み 行 われ る こと が 確認 で きま す 。 

この よう に make を 使う と , ファ イル の 更新 日 時 に 基づい て , 必要 な 処理 の み を 行う 
た め に , 不 必要 な 処理 に か か る 時 間 が 短縮 で きる の で す 。 


List 4-12 makefile の 例 “makefile” (4 章 の サン プル 全部 を コン パイ ル す る ) 


.SUEFEFTXES: .fFx .bin .C .fr .h .bmp .mm1 .war 


seB 由 m に 2 
mkfent $*.oE 


DoPB op 
小 全 6、 この あえ DI きも 


-・bmp.h: 
bmpcny -c $^ 


央 loE 中 SH 
bmpcny $^ 


.Tun ユ エエ : 
SndcnV $^ 


・WaV.E エ : 


Sndcnv -w $^ 


make を 9/9/ 


PROGRAM = test14.bin test15.bin test16.bin test17.btn test18.bin test19.Dbin 
test20.bin test21 .fFx 


defau1t* S (PROGRAM) 


test15.bin: maru.h inu.h 
test21.fx: test21 .bin inu.fr maru.f ェ 


c1ean : 
de1 *.D わ in 
de *.fr 
の 中 き 。 半 区 
de] maru.h 
de1 inu.h 


疫 デフ ォ ルト 以外 の 処理 


makefile 内 に は , デフ ォ ル ト の 処理 手順 以外 に も , いく つか の 処理 手順 を 共存 させ る 
こと が で きま す 。 よ く 〈《 使 われ る 処理 手順 と し て , make 内 部 の 処理 で 作成 され た ファ イ 
ル を 削除 する と いう も の が あり ます 。 先ほど の makefile で も 


> make oc1ean 


に よっ て , 削除 し て も 大 丈夫 な ファ イル (.bin, .ff フ ァイル な ど ) を 消せ る よう に な っ 
て いま す 。 

make に は 各種 バリ エー ショ ン が 存在 し , 少し ずつ 記述 方 法 が 異な り ま す 。 そ れ ぞ れ 
の マニ ュ ア ル や 資料 を よく 読ん で , あな た の プロ グラ ミン グ 環 境 を 支え る 便利 な ツー 
ル と し て 使っ て みて は どう で し ょ う ? 

ちな み に , Microsoft の Windows 用 C/C++ コ ン パ イラ で ある Visual C+ せ + の プロ ジェ クト 
ファ イル も , その 実体 は makefile で , nmake と いう make の 一 種 に よっ て 処理 が 実行 さき 
れ て , コン パイ ル が 行わ れ て いる に 過ぎ ませ ん 。 
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Turbo C 


Magical CD-ROM に は , LSILLC の ほか に , Turbo C と いう C コ ン パ イラ が 添付 され て い 
ます 。 こ ちら を 使っ て も , LSI-C 同 様 に C と ソー スプ ログ ラム を コン パイ ル す る こと が で 
きま 938 

本 書 に お いて は , LSI-C の 使用 を 前 提 に プロ グラ ム を 作成 し て いま す が , Turbo C を 
使っ て も ほとん どの ソー スプ ログ ラム を , 変更 する こと な し に コン パイ ル す る こと が 
で きる で し ょ う 。 変更 し な けれ ば な ら な いと し て も , ほん の 少し で 済み ます 。 

本 書 で Turbo C の 使用 を 前 提 と し て いな い 理 由 と し て は , 


・Turbo C は , LSILC ほ ど 簡 単に イン スト ー ル する こと が で き な い 
・WonderWitch 添 付 の Turbo C は 英語 版 の た め , 日 本 語 表 示 用 の 文字 列 が 化け る 可 
能 性 が ある 


の 2 点 が あげ られ ます 。 
し か し , Turbo C を 使う こと で 


・ コ ン パ イル 時 の 設定 を LSj-C よ り も 細か く 行 える 
・ シ ェ ア ウ ェ ア ,。 商用 プロ グラ ム の 開発 が 可能 


と いう メリ ッ ト が ある の も 事実 で す 。 

コン パイ ラ が 出力 する アセ ン ブ ラ コー ド に つい て 気 に し な けれ ば , イン スト ー ル が 
簡単 な LSILC を 利用 する ほう が よい で し ょ う 。 本書 で は , な る べく 使い や すい 開発 環境 
や 開発 手法 を 解説 する 目的 か ら , Turbo C の 使用 を 前 提 と し て いま せん 。 

も し あな た が , 必要 に 迫 ら れ て Turbo C を 利用 する 場合 に は , 


・MS-DOS プ ロン プ ト を US モー ド に し て イン スト ー ル を 実行 し な けれ ば な ら な い 
こと (イン スト ー ル 方 法 に つい て は WonderWitch の html 形 式 の マニ ュ ア ル 内 に 
解説 が あり ます ) 

・setup.bat に Turbo C を イン スト ー ル し た ディ レク トリ へ の パス を 追加 する こと 

・Turbo C を イン スト ー ル し た ディ レク トリ に ある turboc.cfg に WonderWitch の 
include デ ィ レ クト リ と lib ディ レク トリ へ の パス を 追加 する こと 

・WonderWitch の samples デ ィ レ クト リ に ある makefile.tcc を 参考 に し て , コン パ 
イル を 行う 環境 を 整え る こと 


に 気 を つけ れ ば よい で し ょ う 。 
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GOGO⑤⑪ 


mkfent.exe に つい て 


・ 書 式 
> mkfent [オプ ショ ン ] 入力 ファ イル 


レア アーン 

-f WonderWitch 転 送 形式 ファ イル (.fx) の ファ イル に 変換 し ます 

-r 。 WonderWitch 転 送 形式 ファ イル (.fx) を 元 の ファ イル に 戻し ます 
ュ WonderWilch 転 送 形式 ファ イル (.fx) の 内 部 情報 を 表示 し ます 


mkfent.exe は 、WonderWitch に 転送 し た い フ ァイル を WonderWitch 転 送 形 式 フ ァイル 
(.fx) に 変換 する ソフ ト で す 。TransMagic.exe を 使え ば , 変換 を 行っ て 転送 し て くれ ます 
が , 実行 形 丈 ファ イル に リソー ス を 添付 する 場合 な ど に は , mkfent.exe が 必要 に な り ま す 。 
5 ビン ョ ン を 指定 せ ず 、 入力 ファ イル と し て 情報 ファ イル (.cf) を 与え る と , 情報 フ 
ァイル の 記述 に し た が っ て WonderWitch 転 送 形式 ファ イル を 作成 し ます 。 
情報 ファ イル に は 1 行 に つき 


設定 : 値 


の 形式 で 作成 する WonderWitch 転 送 形 素 フ ァイル に 関す る 設定 を 記述 で きま す 。 設定 
で きる 項目 は 以下 の と お り で す 。 


name: ファ イル 名 (半角 英 数 16 文 字 ま で ) 
info: ファ イル の 説明 (半角 英 数 24 文 字 ま で ) 
mode : ファ イル モー ド を 表す シン ボル 


resource: 連結 する リソー ス (空白 また は タブ で 区 切っ て リソー ス フ ァ イル を 列挙 ) 
SOU エ CG : 入力 ファ イル (変換 前 の ファ イル ) 
output: 出力 ファ イル (変換 後 の フ ァイル ) 


mode に 指定 で きる シン ボル は 以下 の と お り で す 。 
x ファ イル が 実行 可能 で ある こと を 表し ます 
w ファ イル が 書き 込み 可能 で ある こと を 表し ます 


r ファ イル が 読み 込み 可能 で ある こと を 表し ます 
m mmap() に よる アド レス 取得 を 禁止 し ます 


オプ ショ ン を 指定 し た 場合 は . 入力 ファ イル を WonderWitch 転 送 形 丈 ファ イル に 変換 
し ます 。 ご の 場合 


name: ファ イル 名 
info: ファ イル 名 


mode: rw 
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と し て 変換 を 行い ます 。 
-r オ プシ ョ ン で は , 入力 ファ イル と し て 与え られ た WonderWitch 転 送 形 式 フ ァイル を. 


元 の ファ イル に 戻し ます 。WonderWitch カ ー ト リッ ジ か ら PC に 転送 し た .f フ ァイル な ど 


か ら , 元 の ファ イル を 得る こと が で きま す 。 
ュ オ プシ ョ ン で は , 入力 ファ イル と し て 与え られ た WonderWitch 転 送 形 式 フ ァイル の 
name や mode な どの ファ イル 情報 を 表示 し ます 。 
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ニーー- ニニ 


WonderWitch で , 絵 を 出し た り , 音 を 出し た り , ファ イル を 扱っ た り で きる こと が 
わか っ た ら , 今度 は 何 か を 作っ て み ま し ょ う 。 ち ょ っ と 遊べ た り , 少し お も し ろか っ 
た りす る も の を プロ グラ ム す る の で す 。 

いき な り 1 人 で 凄い も の を 作ろ うと する 必要 は あり ませ ん 。 サ ンプ ルプ ログ ラム を い 
じ っ て みて , 何 か 自分 に で きそう だ と 思い つい た も の を 作れ ば いい の で す 。 市 販 の ゲー 
ム の よう に , か わい い 女 の 子 が し ゃ べったり , か っ こい い メ カ が 縦横 無尽 に 動き 回 る 
必要 は あり ませ ん 。 気楽 に 作れ ば いい の で す 。 


あみ だ くじ 


も し か し た ら 実 用 的 か も し れ な い , あみ だ くじ を WonderWitch で 作っ て み ま し ょ う 。 
コン ピュ ー タ を 使っ た くじ は , 人 間 が 作る くじ より 公平 性 が 期待 で きる の で , 無用 な 
争い を 未然 に 防げ る か も し れ ま せん 。 

まず , 画面 に あみ だ の 線 を 描画 する プロ グラ ム を 作り , その あと で あみ だ を 選択 し 
た り , 実際 に あみ だ を 移動 し て 見 せ た り する 完成 形 の プロ グラ ム を 作っ て み ま し ょ う 。 


2 人 線 を 失 画 する プロ グラ ム を 作る 


あみ だ くじ を 行う た め に は , まず , あみ だ を 描か な けれ ば な り ま せん 。 空白 , 横線 , 
縦 線 , 横線 か ら 縦 線 の 分 岐 が ある も の (接続 ), の 4 つの 8X8 ド ッ ト の キャ ラク タ 
amida.bmp (Fig.5-1) を 使っ て , Fig.5.2 の よう に , あみ だ を 表現 で きま す 。 

この 考え を を プロ グラ ム し た の が amida1.c (List 5-.1) で す 。 コ ン パ イル する に は , 
amida.bmp を bmpcnv.exe で 変換 し て 得 ら れる , amidah を 利用 し ます 。 


3 計 記 昌 基 amida.bmp 


ー1 エ 


106 電 第 5 章 と に か く 作っ て みよ う 


amida1.bin の 実行 画面 


3 炊 プロ グラ ム の ボイン ト 

amidal.c で は , スク リー ン 1 の 全 領 域 (256X256 ド ッ ト , 32X32 キ ャ ラク タ ) に , 4 
つの キャ ラク タ を 敷き 詰め て , あみ だ を 描い て いき ます 。 ス クリ ー ン 1 に 敷き 詰め られ 
た キャ ラク タ の 状態 を 管理 する た め に cmap[y 座 標 ] [x 座 標 」 を 使う こと に し , 


SCreen Set char(SCREEN1, 0, 0, 32, 32, cmap) 


を 呼ぶ こと で 管理 状態 を 即時 に 画面 に 反映 で きる よう に し ます 。 こ の 仕組 み を 使っ て , 
スク リー ン 1 の 全 領 域 を 空白 で 埋め て か ら 描 き 始 め ま す 。 

まず , 最初 に あみ だ の 基本 と な る 横線 を 描き ます 。 キ ャ ラク タ 単 位 で , y 座 標 が 偶数 
番目 (0, 2, 4。 …, 30) で , x 座 標 が 1 一 30 番 目 の 位置 に , 横線 の キャ ラク タ を 描き ま 
す 。 

次 に , 縦 線 を ラン ダム に 入れ て いく た め に 使用 する 乱数 を 用 意 し ます 。+rand () か ら 
得 ち れる 乱数 の 数 列 は , srand () に 与え る 初期 値 に よっ て 変わ り ま す が , 初期 値 が 同 
じ で あれ は ほ は 毎回 同じ 数 列 し か 得る こと が で きま せん 。 そこで, 本 当 に ラン ダム に 値 が 
欲し い 場 合 は , scand () に 与え る 初期 値 に 。 コン ピュ ー タ の 時 計 か ら 得 られ る 値 を 用 
いる の が 常 道 に な っ て いま す 。WonderWitch で も , WonderSwan 内 蔵 の 時 計 か ら 値 を 得 
る rtc ge datetime () が 利用 で きる の で , この 関数 が 返し た 値 か ら 初期 値 を 作っ 
て 利用 し て いま す 。 

60 本 の 縦 線 を , 乱数 に よっ て 選ば れ た 横線 の , 乱数 に よっ て 選ば れ た 位置 に , 下 向 
き に 入れ ます 。 背景 は , 閉じ た 座標 系 に な っ て いて , x 方 向 に つい て も , 7 方 向 に つい 
て も , キャ ラク タ 単 位 で 31 番 目 の 十 方 向 の 隣 が 0 番目 を 表示 する よう に な っ て いる の で 
16 本 目 の 横 線 の 下 に は 1 本 日 の 横線 が 表示 され ます 。 そ こ で , 16 本 目の下 に 縦 線 を 入れ 
る 場合 は , 1 本 目 の 横線 と 接続 する よう に し て いま す 。 

また , 横線 と 縦 線 を 接続 する キャ ラク タ に は , 縦 線 が 上 か ら 来 る も の し か な い の で , 
縦 線 が 下 か ら 来 る 接続 を 表示 する と き に は , キャ ラク タ の 上 下 を 反転 し て 使っ て いま 
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す 。 選 ば れ た 横線 の 選ば れ た 位置 に 反転 し た 接続 を 表示 し , その 下 に 縦 線 , さら に そ 
の 下 に 接続 を 表示 する よう に キャ ラク タ を 設定 し ます 。 こ うす る こと で , 2 本 の 横線 を 
縦 線 で 結ん で いま す 。 


aimida1.c 


#1nc1ude <std11ib.h> 
#1nc1ude く <syS/b1os .h> 


#1nclude "amida.h" 
unsigned short cmap[32] [32] : 


votd main() { 
unsigned char x =0,y=0: 
PB 1 2 2 


disp1ay contro1] (DCM SCR1 ) 
font set co1ordata (0, 4, bmp amida) : 


/* 画面 全体 を 空白 に する */ 

for(1 = 0: 1 < 327 i++) 
For(] = 0 ] < 32: ]++) 

cmap[]][1] = 0 


/* 横線 を 引く */ 
下 OE.( エ 生 可 0: エ で 32 ユ ユニ 2) 
EoOsi(] 三 > ゴ で 317 コキ ます ) 
cmap[i] [] = 1: 


/* 縦 線 を ラン ダム に 入れ る +*/ 
srand (rtc get datetime (RTC_SEC) + (rtoc_get datetime (RTC_MIN) < くく 8) ) : 
for(k = 0z k < 60: K++) { 


ュ = (rand() も 16) * 2: 

] = (rand() $ 28) + 2: 

if (cmap[i] []] == 1 ss cmap[ (1+2) 32] []] == 1) { 
cmap[i] []] = Ox8003: 


cmap [1+11[]] = 2: 
cmap [ (1+2) も 32] []】 = 3』 


screen se char(SCREEN1 , 0. 0。 32。 32.。 cmap).: 
Screen set scro11 (SCREEN1, x, Y) : 
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while(1) 【 
for(1 = 0 ュ < 5000: ユ ++) 』 
1 = key press check () 
1F(1 & KEY START) 


break: 

e1Se 1f(1 & KEY X1) 
も 7 

el1se 1fF(1 & KEY X3) 
Y キ +: 

tfF(1 &g KEY X2) 
メオ オイ: 


else 1fF(1i & KEY X4) 
ーー。 


Screen Se scro11 (SCREEN1, x, y): 


Fnetion 5=1 日 時 を 取得 する 関数 

umstgmed ェ to_get_datetime (uns1gned 7a の ) : 
j 引 王 | zzags: シ ン ボ ル (Table A) の 値 

返 値 | 日 時 に 関す る 値 


機能 WonderSwan 内 蔵 の 時 計 に アク セス し て , 指定 し た シン ボル に 対す る 値 を 返し ます 。 
RTC_ YEAR を 指定 し た と き は 2000 年 を 0 と し た 値 が 得 ら れ , RTC_DAY OF WEEK を 指 
定 し た と き は 日 曜日 を 0 と し て 日 月 火 水木 金 土 の 順 で 数 値 が 0 一 6 ま で 得 ら れ , 
RTC_HOUR を 指定 し た と き は 24 時 間 表 現 の 値 が ま 得 ら れ ま す 。 関 数 で は な く ア セン ブ 
ラ を 呼び 出す マク ロ で す が , 通常 の 使用 に お いて は 関数 と 同様 に 扱っ て も 問題 あり 


ませ ん 。 
TableA flags の と る 値 
RTC_YEAR 


RTC MONTH 
RTC DATE 


RTC_ DAY OF WEEK 


RTC HOUR 
RTC MTN 


RTC SEC 


この マク ロ は <sys/timer.h> に 定義 され て いま す 。<sys/imer.h> は <sys/bios._h> に よっ て も イン クル ー 
ド さ れ ま す 。 
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< 癒 あみ だ くじ の プロ グラ ム を 作る 


あみ だ が 描け た ら , 左端 か ら あ み だ を 選択 で きる よう に し , 選択 し た 部 分 に アル フ 
ァ ベ ッ ト を 表示 し ます 。 右端 の 見 えな い 部 分 に は , くじ の 番号 を 振っ て お きま す 。 す 
べ て の あみ だ の 選択 が 終わ っ た ら , 1 つ 1 つ あみ だ を た どる 演出 を 加え て や っ て 完成 で す 。 

この 完成 形 の プロ グラ ム が , amida2.c (List 5.2) で す 。 コ ン パ イル する に は , 先 ほ 
どの amidah が 必要 で す 。 

スク リー ン 1 の 画面 に 見 えて いな い 右 端 に くじ 番号 を 振り , 左端 に アル ファ ベッ ト を 
並べ る 処理 を つけ , アル ファ ベッ ト が あみ だ を た どっ て 右端 まで 進む よう に 演出 する 
処理 を 加え ます 。X ボ タン 上 下 (X1, X3) と A ボ タン で アル ファ ベッ ト を すべ て の 横線 
に 並べ る と , A ボ タン を 押す ご と に アル ファ ベッ ト が あみ だ 上 を 進み ます 。 全 部 の 組み 
合わ せ が 確 定 し た ら , X ボ タン 上 下 で 組み 合わ せ を 確認 で き , START ボ タン で 終了 し 
ます 5 


= 底 プロ グラ ム の ボ ポイント 

amida2.c で は , WonderWitch の テキ スト 機能 を 裏 技 的 に 利用 し て , フォ ント デー タ を 
キャ ラク タテ ー ブ ル に 登録 し て いま す 。 テ キス ト 機 能 を 使用 し て いる 場合 , (0, 0) の 
位置 か ら 文 字 列 を 表示 する と , その 文字 列 で 使わ れ て いる フォ ント デー タ が , テー ブ 
ル の 8 番 か ら 順 に 格納 され ます 。 こ の 仕組 み を 利用 し て , 8 番 以降 に プロ グラ ム 中 で 使 
用 し た い フ ォ ン ト デ ー タ を 登録 し て いま す 。 

くじ 番号 を 振る 処理 で は , 乱数 で 横線 を 1 本 選び , その 横線 の 番号 を 1, その 下 を 2, 
さら に その 下 を 3 と いう よう に 番号 を 振っ て いき ます 。 こ の 場合 も , 16 本 目 の 線 の 下 は 
1 本 目 と し て 処理 し ます 。 番号 を 振っ た 状態 は kn]1 right[] に 保存 し て お きま す 。 
アル ファ ベッ ト を 並べ させ る 処理 (あみ だ を 選択 させ る 処理 ) で は , X ボ タン 上 下 で 
横線 を 選び , A ボ タン を 押す と , アル ファ ベッ ト を 表示 し , kuji_1eft[] に 配置 し た 
こと を 記憶 きせ ます 。A ボ タン を 押し た 位置 に し. すでに アル ファ ベッ ト を 配置 し て いる 
場合 は ,。 アル ファ ベッ ト を 置か な いよ うに , kuji 1efEt[] の 中 身 を 確認 し て いま す 。 
アル ファ ベッ ト が , 左端 か ら 右 端 の くじ 番号 まで , あみ だ を た どっ て 行く 処理 で は , 
移動 きせ る アル ファ ベッ ト を スプ ライ ト で 表示 し 動か し て いま す 。 移動 する 方 向 は , 
cmap[] [] を 見 な が ら , 基本 的 に x 方 向 に 移動 する こと で 横線 を た どり な が ら 進 み , 縦 
線 が 入っ て いる 部 分 に 来る と , 縦 線 を 移動 する よう に な っ て いま す 。 くじ 番 号 に た ど 
り 着 いた ら , 番号 の 前 に アル ファ ベッ ト を 吐い て , 結果 を 表示 する よう に な っ て いま 
すず 。 

この あみ だ くじ で は , 16 人 ぴっ た り で な いと 実用 上 不都合 が ある か も しれ ませ ん 。 
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amida2.c の 処理 の 流れ 


テキ スト 機能 を 裏 技 的 に 使っ て 


フォ ント デー タ を テー ブル に 登録 


スプ ライ ト を 1 枚 使 用 可能 に し 画面 外 に 置い て お く 


画面 全体 を 空 折 に する 
16 本 の 横線 を 引く 
ラン ダム に 選ん だ 横線 の ラン ダム な 位置 に 下向き の 縦 線 を 入れ る 
横線 の 右側 に くじ 番号 を 入れ る 
画面 を 更新 する 
アル ファ ベッ ト を スプ ライ ト に 登録 
ーー に X ボ タン 上 下 
3 ボタ ン の 状態 を 調べ る 
アル ファ ベッ ト の 表示 座標 を 
上 下 に 移動 させ る 
選ば れ た 横線 の 左側 に アル ファ ベッ ト を 置く 
アル ファ ベッ ト を スプ ライ ト に 登録 


cmap[][] を 調べ る = 
下 の 横線 に 移動 | 上 の 横線 に 移動 


置け な い 


アル ファ ベッ ト が 置け る か 調べ る 


置け る 


AP を ルー プ で 処理 する 
AP を ルー プ で 処理 する 


あみ だ くじ の 結果 を X ボ タン 上 下 で 参照 
START ボ タン で 終了 


あぁ み だ く じ 恩 


1 叶 間 


人 数 を 変え られ る よう に し た り , オー プ ニ ン グ 画 面 を つけ た り , BGM や 効果 音 を つけ 
た りす れ ば , も っ と いい あみ だ くじ に な る で し ょ う 。 いろいろ 試し て みて くだ さい 。 


3 記 品 胃 amida2.bin の 実行 画面 


ビ 


List5-2 amida2.c 


#1inc1ude < く std11D.h> 
#1nc1ude <syS/Dbios .h> 


#include "amida.h" 


unS1gned char x = 0, y = 0, Spr xx, SDr yz 
unsigned short omap[32] [32] 
nt ku]j1 right [16] , ku]1 1eft[16]: 


vo1d exec amida(1nt)。 


void main() 【 


AE きま 。 Ki 


/* テキ スト 機能 を 裏 技 的 に 使っ て フォ ント デー タ を テー プル に 登録 */ 
tex screen ini(): 
text put strinq(0, 0, "ABCDEFGHTJKLMNOP0123456789『): 


disp1ay contro1] (DCM SCR1 | DCM SPR): 

Font set co1ordata(0, 4, bmp amtda) : 

Sprite set range(0, 1): 

sprite set window(0, 0, 224, 144): 

palette se co1or(12, 0x7300): 

sprite set char(0, CEM SPR UPPER | (12 - 8) * Ox200 | 0): 
sprite set 1ocation(0, 224, 144): 


/* 画面 全体 を 空白 に する */ 
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E 〇 下池 。 三 0 た ユ ぐ で | 82 と さす お ) 


for(] = 0 ] < 32: ]++) 
cmap[]] [1] = 0: 


/* 横線 を 引く */ 


for(1i = 0: エ < 32: エ ォ = 2) 


泡 @ や (ーー ル が で 297。 も) 
cmap [1] []] = 1』 


/* 縦 線 を ラン ダム に 入れ る +*/ 


srand (rtc get datetime (RTC_SEC) + (rtc get da て etime(RTC MTN) 


For(k = 0: Kk < 60z k++) 【 


} 


ュ = (rand() $ 16) * 2: 
] = (rand() $ 26) + 2。 
if (cmap [1] []] == 1 &g cmap[ (1+2) る 32] []] == 


cmap [1] []] = Ox8003: 
cmaP [1+1][]] = 2: 
cmap [ (1+2 ) も 32][]] = 3: 


/* 右端 に くじ 番号 を 表示 */ 
EOri( = 0。 ヨゴ = rand() / 2 メメ 27 ュ ぐ で 


も に:1) 
cmap[ (1 + ]) も 32][31] = 
else { 
cmap[(1 + ]) 32][30] = 8 
cmap[ (1 + ]) も 32][31] = ュ 


} 


FEO:( 玉 三 0}: エ くせ 67 ミ +†+) 


ku]1 right[〕 * 32 / 2 + ュ ] = ニュ 


Screen set char(SCREEN1, 0, 0, 32, 
SCreen Se scCro11 (SCREEN1, x, Y): 


/* 左端 に アル ファ ベッ ト を 並べ させ る ょ */ 
OoF(3 は = 0: さく 167 3f4) 


ku]1 1eft[1] = -1: 


for(1i = 0z 1 < 16: 1++) ( 
Sprite se char(0, CFM SPR UPPER | 


SDr X = SPFyー0: 


皇 人) 


/ 2+ 8+ 16+ 1: 


ュ ォ = 2) 


6e キ り 2 


/2=9+8 す 16: 


十 


1: 


327 


cmap) 


(2 ー リ 8)》 


Sprite set 1ocation (0, SDr x, SPF Y)』 


while(1) { 
] = key _ wait(): 
1f(] & KEY X1) 【{ 
if((int)spr y - 16 く 0) 
y -= 16: 


e1se 


* Ox200 | 8 + 1): 
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くく 8) ) : 


3 


Spr y ー= 16z 
} 
else if(] & KEY X3) { 
ifF((int)spr y + 16 >= 144) 
Y += 16: 
e18e 
SpPF Y + ニ = 16: 
} 
1E(] & KEY A && ku]i 1eft[(spr y / 16+y / 16) も 16] 
Ku LeFE[(SBr y / 16+ y / 16) 16] = ュ : 
Cmap[(spF y /16+y/16) も 16* 2][0] = 8+ ェ z 
Screen Set char(SCREEN1, 0, 0, 32, 32, cmap) : 
break: 
} 
Sprite set 1]oocation(0, Spr x, SDPr Y) ァ 
Screen Se scCro11] (SCREEN1 , x, ) 


} 
Sprite set location(0, 224, 144): 


/* あみ だ くじ 実行 */ 
for(1 = 0, 1 < 16: 1++) 
exec amida(1) 


whi]e(1) { 
for(1i = 0: 1 < 5000: ュ ++) 
1 = key press check() 
1f(1 g KEY START) 
break: 
else ifF(i & KEY X1) 
ニニ 
else 1f(1 &g KEY X3) 
キオ 』 
SCreen se 上 scro11 (SCREEN1, x, Y): 


/* あみ だ くじ 実行 */ 
Yo1d exec amida(in 1) { 
nt ], k, 1。 mz 


key_ wait(): 


Sprite se ohar(0, CFM SPR UPPER | (12 - 8) * Ox200 | 8 + 1): 


SPFr x = 0O: 
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SDr y ー 72: 
for(] = 0z ] < 16: ]++) 
1f(ku]1 1eft[]] == 1) 
break: 
x ビ 0: 
ャ =]*16 - 72: 
Sprite se 1ocation(0, SDr X, SPr Y): 
SCreen Se scro11 (SCREEN1, x, y) : 
for(k = Oz k < 29: kk++) 【 
/* 折れ て 上 に 進む */ 
1F(cmap[] * 2] [k] == 3) { 
Fori(1 テ 07 1 く 16: 1+ せ や) 【 
for(m = 0z m < く 5000: m++) : 
こと 
SCreen set soro]1 (SCREEN1 , x,。 Y) 
} 
連 ル 
) = (] + 16) を 16: 
1 
/* 折れ て 下 に 進む */ 
else if(cmap[] * 2] [k] == Ox8003) { 
正 oF( ユ = 07 上 く 16: 1 ユキ キ ) {1 
for(m = 0: m く 5000: m++) : 
Y++: 
Screen set scro11 (SCREEN1, x, Y) 
) 


]++。 

] =] 16 
1 
/* 右 に 進む */ 


(EoN(H2 三 0 な SB ルキ 玉 衣 1 
for(m = 0z m < く 5000: m++) : 
3 ま (IK で 26) 
SD X++』 
人 目 訪 介 
メイ オオ: 
screen se scro11 (SCREEN1, x, ): 
Sprite set 1ocation(0, Spr x, SDPr Y): 


} 
Eo 三 _0/ 1 ぐ 8: 1l++) { 
For(m = 0: m < 5000: m++) : 
甘 吐 和 キ な 
Screen Set scCro11 (SCREEN1, x, ゞ ) 
Sprite se 1ocation(0, --SDF X, SPr Y)? 
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} 

cmap[] * 21[29】=8+ ュ 』 

Screen Se char(SCREEN1, 0, 0, 32, 32, cmap): 
Sprite set 1ocation(0, 224, 144)/ 


普段 や っ て いる , ちょ っ と し た 遊び を プロ グラ ム す る の は , プロ グラ ミン グ に 慣れ 
る 上 で 非常 に 勉強 に な り ま す 。 だ か ら , 別に 便利 に な っ た り し な くっ て も , と りあ え 
ず 作 っ て みる と いう 考え で よい の で す 。 じ ゃ ん けん は WonderWitch を 使わ な い ほ う が 
よい の か も し れ ま せん が , と りあ え ず 作っ て みる こと に し まし ょ う 。 


疫 , じゃ ん けん する プロ グラ ム を 作る 


3 十 1 人 で じゃ ん けん を 行う プロ グラ ム を 作っ て み ま す 。93 人 は 人 間 で , 1 人 は コン ピ 
ュー タ が 担当 し ます 。3 人 の 人 間 は , それ ぞ れ , A と B, X3 と X4, Y1 と Y4 の 2 つの ボタ 
ン を 使っ て じゃ ん けん を する よう に し ます 。2 つ の ボタ ン を 押し て いた ら グ ー, 片方 だ 
け 押 し て いた ら チ ョ キ , 両方 放し て いた ら パ ー だ と し ます 。 

この よう に プロ グラ ム し た の が jyanken1.c (List 5-3) で す 。 コ ン パ イル する に は , 
表示 に 使う 画像 (ig.5-5) を , bmpcnv.exe で jken_*.h に 変換 し て お きま す 。 


電 衣 本 配 便 jken *.bmp 


ば け ば 
ん ん ん 


jkKen_1.bmp jken_2.bmp jken_3.bmp jken_4.bmp jken_5.bmp jken_6.bmp 


1 
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= 次 プロ グラ ム の ボ ポイント 

jyanken1.c で は , あみ だ くじ の プロ グラ ム と 同様 に , cmap [7 座標 1 [x 座 標 ] を 用 いて 
画面 表示 状態 の 管理 を 行っ て いま す 。 こ こ で は , スク リー ン 1 の 液晶 画面 上 に 見 える 部 
分 だ けし か 使わ な い の で , cmap[][] も その 大 きき さ 分 し か 確保 し て いま せん 。 ま た , 
WonderWitch の テキ スト 表示 機能 を 裏 技 的 に 利用 し て , フォ ント デー タ を キャ ラク タ 
テー ブル に 登録 する 仕組 み も 同様 に 使っ て いま す 。 こ の た め , キャ ラク タテ ー ブ ル 8 一 
16 番 に は フォ ント デー タ が 配置 され る の で , グー, チョ キ , パー の 画像 は , 17 番 以降 
に 格納 し て いま す 。 

プレ イヤ ー ご と に , 手 の 画 像 を 表示 する 座標 は , jmap[ プ レイ ヤー 番号 ] [座標 
(x:0, y:1) ] か ら 引 ける よう に し て いま す 。 グー, チョ キ , パー の 画像 の キャ ラク タ 
テー ブル 上 の 開始 番号 は , gcpmap[] で 参照 で きる よう に し て いま す 。 ま た , 「 じ ゃ ん 」] 
「 け ん | 「 ぽ ん 」 を 表示 し た あと に , 各 ボ タン の 押さ れ 具 合 を 調べ , 各 プ レイ ヤー が 出 
し た 手 を gcp[ プ レイ ヤー 番号 ] に 保存 し て いま す 。 こ れ ら は , ルー プ な ど を 使っ て 同 
じょう な 処理 を まとめ た り , 条件 分 岐 を 減ら す た め の 工夫 に 使わ れ て いま す 。 main () 
の 中 の 手 を 表示 する 部 分 の 処理 を , これ ら デ ー タ テー ブル な し に 実現 する 場合 , ルー 
プ が 展開 され た 状態 で , 条件 分 岐 を 書か な けれ ば な り ま せん 。 

ある ボタ ン が 押さ れ て か ら 放 され た ら 先 に 進み た いり 場合 が 多く あり ます 。key wait() 
で は , 押さ れ た 瞬間 に 先 に 進ん で し まう の で , こう し た 用 途 に その まま 使う に は 難 が 
あり ます 。 そこ で , 指定 し た ボタ ン が 押さ れ て 放さ れる まで 待つ 関数 key wait up() 
を 作っ て いま す 。 こ うし た 関数 を 書き 溜め て いっ て , 自分 の プロ グラ ミン グ を ラク に 
民 iGMy く と よい で し よう 。 


= 門 も っ と 改良 し て みよ う 

この プロ グラ ム で は , コン ピュ ー タ が 担当 する プレ イヤ ー の 手 が , 単に 乱数 で 処理 
きれ て いま す 。 こ の con() の 中 身 を 工夫 し て や れ ば , も し か し た ら 人 間 よ り 手 強い じ 
ゃ ん けん プレ イヤ ー に な る か も し れ ま せん 。 た と えば , 過去 100 回 分 の じゃ ん けん の 履 
歴 を 残し て お き , 最も 勝率 の 高かっ た 手 を 選択 する よう に し た り , 人 間 の 各 プ レイ ヤー 
の 過去 に 出し た 手 を 分 析 し て , 次 の 手 を 予測 し て , 自分 の 手 を 選択 する よう に し た り 
する こと を 考え る こと が で きま す 。 

「 じ ゃ ん けん ぽん 」| を 音声 に し た り , 「 あ いこ 」 の と き の 処 理 を つけ た り , 勝ち 負け の 
判定 を つけ た り と , 改造 する 部 分 は た くさ ん 考え る こと が で きま す 。 ま た , 自分 で 工 
夫 し た com () の じゃ ん けん プレ イヤ ー が どれ だ け 強 い の か , 人 間 や , 他 の 人 の 作っ た 
com ( ) と 競 わ せ て も 楽し め ま す ね 。 


じゃ ん けん 規 。 11Z 


光 jyanken1.c の 処理 の 流れ 


テキ スト 機能 を 裏 技 的 に 使っ て フォ ント デー タ を テー ブル に 登録 


グー、 チ ョ キ 、 パ ー の 画像 を キャ ラク タテ ー ブ ル に 登録 
手 の 表 示 護 標 と 画像 の キャ ラク タテ ー ブ ル 上 で の 位置 を 配列 に 設定 


「 じ ゃ ん けん する ? | を 表示 


START ポ タン が 押さ れ た 
START ボ タン が 押さ れ た 5 終了 


「 じ ゃ ん 」] 「 け ん 」 「 ぽ ん 」 を 順に 表示 


コン ピュ ー タ の 出し た 手 の 種類 を com() で 取得 


人 間 の プレ イヤ ー の 出し た 手 の 種 類 を 取得 


3 トニ ーーーー… ジ ジー: 
gcp[ プ レイ ヤー 番号 ] で 出し た 手 の 種 類 を 調べ 、 8 
gcpmap[ 出 し た 手 の 種 類 | の 画像 を 、 
ー jmap[ プ レイ ヤ 一 番号 ] を 始点 と し て 描 Re 


画面 を 更新 する (じゃ ん けん の 結果 が 表示 され る ) 


START ボ タン が 押さ れ た ら 終了 


無限 ルー プ 
START ポ タン が 押さ れ た 


終了 


衣 計 計 虹 jyanken1.bin の 実行 画面 
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_Hist 5-3 janken1.c 


#inc1ude <std1ib.h> 
#1nc1ude <sys/Dbios .h> 
#1nc1ude "]ken 1.h" 
#1include "]ken 2.h" 
#include "]ken 3.h" 
#1nc1ude "]ken g.h" 
#1nc1ude "]ken oc.h" 
#include "]ken p.h" 


#define GOO 0 
#define CHOKT 1 
#define PAA 2 


int com() 
int key_ wait up(int) 


uns1qned short cmap[18] [28]: 
tnt gcp[4], jmap[41[2], gcpmap[3]: 


yo1d main() { 
EE 半 。 j。 丈 > 12 


/* テキ スト 機能 を 裏 技 的 に 使っ て フォ ント デー タ を テー ブル に 登録 */ 
text screen ini(): 
text put string(0, 0, " じゃ ん けん する ?『): 


disp1ay contro1 (DCM SCR1 ) 

Font set col1ordata(17, 9 * 9, bmp jken 9g) 
font set co1ordata(98, 9 * 9,。 bmp ]ken oc): 
font set co1ordata(179, 9 * 9, bmp ]ken p): 


]map[0][0] = 19: 
map[0][1] = 9: 
map[1][0] = 0: 
map[1][1] = 9: 
map[21[0] = 0: 
jmap[21[1】 = 0: 
]map [3] [0] = 19: 
map[3] [1] = 0: 


gcpmap[0] = 17: 
dcpmap[1] = 98: 
gcpmap[2] = 179: 


じゃ ん けん 恩 
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srand(0): 


while(1) 【 
/* じゃ ん けん する ? */ 
邊 OE:( 下 三 07。 電 で グ 28 が エ も ) 
EE (人吉 、 0 の で 187 3 人 ト 六 ) 
cmap []] [1] = 8: 
for( ミ = 0: エミ < 8: i++) 
cmap[8][10 キミ 】 =9+1 ユ 』 
screen se char(SCREEN1, 0, 0, 28, 18, cmap) : 


/* スタ ー ト ボタ ン が 押さ れ た ら 終 了 , 

X1, X2, Y2, Y3 が 押さ れ た な ら 次 へ */ 
1 = key wait up(KEY X] | KEY X2 | KEY Y2 | KEY Y3 | KEY START): 
1f (1 == KEY START) 

break: 


/X じゃ ん */ 
for(] = 0, k = 260: ] < 18: ]++) 

For (1 = 9z 1 < 19: ユ ++, K++ サ ) 

cmap []] [1] = Kk: 

Font set co1ordata(260, 10 * 18, bmp jken_1): 
screen set char(SCREEN1, 0, 0, 28, 18, cmap) : 
ori(3。 = 0> すく.105 3 は 19 

for(1i = 0: 1 < 30000: ユ ++) : 
/* けん */ 
font set co1ordata(260, 10 * 18, bmp }ken_2): 
Eo:(⑬ = 0z く 107 まま ) 

OPXL き 0 が 7 引 で 30000』: ユナ オ #0『 
/* ぽん */ 
font set colordata(260, 10 * 18, bmp )ken 3): 
Eo (は ご 0 ょ きく 5000z 1T キ 7 


/* コン ピュ ー タ の 手 を 取得 */ 
gcp[3] = comt(): 


/* 人 間 の 手 を 取得 * ょ / 

1 = key DresS Check(): 

if(i sg KEY A && 1 & KEY B) 
gcp[0] = GOOz 

e1se if(!(1 gs KEY A) ss !(1 g KEY B) ) 
qcp[0] = PAA: 

e1se 
gcp [0] = CHOK エ : 

1f(1 sg KEY X3 ss 1 s KEY X4) 
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qcp [1] = GOOz 

else 1f(!(1 & KEY X3) && ! (1 & KEY X4) ) 
Cp[1] = PAAz 

Ge1SG 
qcp [1] = CHOKT+: 

if(1 & KEY Y] gg 1 & KEY Y4) 
Cp [2] = GOOz 

el1se 1F(!(1 &g KEY Y1) && !(1 & KEY Y4) ) 
9gCP[2] = PAAz 


e1se 


gcp[2] CHOKT 
/* 手 を 表示 */ 
for(] = 0z 1 < 4: 1 ユ ++) 
for (]=]map [1 ] [1 , k=gcpmap [gcp [1]]: ] < ]map[1] [1]+9: ]++) 
for(1 = ]map[1][0O]1: 1 < ]map[1] [0] + 9: i++, K++) 
cmap[]] [1] = kz 
Screen Set char(SCREEN1, 0, 0, 28, 18, cmap) : 


/* スタ ー ト ボタ ン が 押さ れ た ら 終 了 , 

X1, X2, Y2, Y3 が 押さ れ た な ら 次 へ */ 
1 = key wait up(KEY X1 | KEY X2 | KEY Y2 | KEY Y3 | KEY START) 
1f (1 == KEY START) 

break: 


/* コン ピュ ー タ の 手 */ 
int com() { 
return rand() も 3: 


/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
1nt key wait up(tnt mask) { 
in 1, re: 


while(!((1 = key wait()) sg mask) ) : 
ret = 1: 


while(key presSs Check() & ret) ヶ 


return re 


じゃ ん けん 恩 


遇 | 


@9 みん な で 親指 を 立て る 遊び 


子供 の 遊び に は , 地方 に よっ て 呼び 名 は 違う けれ ども , ほぼ 同じ ルー ル の 遊び が た 
くさ ん あり ます 。 そ ん な 遊び の 1 つ に , プレ イヤ ー が 各自 の 両手 を 場 に 出し て , 順番 に 
数 字 を 言っ て いく 遊び が あり ます 。 両手 の 親指 を 立て た り 伏 せ た り する こと が で き て , 
自分 が 言っ た 数 字 の 本 数 だ け 場 に ある 手 の 親指 が 立っ て いた ら 手 を 1 本 引っ 込め , 両手 
を 引っ 込め る こと の で きた 人 が 勝ち と いう ルー ル の 遊び で す 。 こ の 遊び を 
WonderWitch 上 で 遊べ る よう に し て み ま し ょ う 。 


:′ みん な で 親指 を 立て る 遊び の プロ グラ ム を 作る 


じゃ ん けん の と き と 同 じ よ うに , 3 十 1 人 の プレ イヤ ー で 遊べ る よう に し ます 。 3 人 は 
人 間 で , 1 人 は コン ピュ ー タ が 担当 し ます 。3 人 の 人 間 は , それ ぞ れ , A と B, X3 と X4, 
Y1 と Y4 の 2 つの ボタ ン を 使い ます 。 数字 を 言う 代わ り に ボタ ン を 押し た 回 数 で 数 字 を 表 
現し , ボタ ン を 押し て いた ら 対 応 し た 指 を 立て る よう に し ます 。 

この よう に プロ グラ ム し た の が yubil.c (List 5-4) で す 。 コ ン パ イル する に は , 表示 
に 使う 画像 (Fig.5-8) を , bmpcnv.exe で yubi_*h に 変換 し て お きま す 。 

「GAME START| と 表示 きれ て いる と き に , X1, X2, Y2, Y3 ボ タン の どれ か を 押す 
と ゲー ム を 開始 し , START ボ タン を 押す と ゲー ム を 終了 し ます 。 自 分 の と ころ に 「 数 
を 入力 し て | が 出 て いる と き が , 自分 が 数 字 を 宣言 する 番 な の で , 「 い っ せ ー の 一 」 と 
表示 され て いる 間 に , 宣言 し た い 数 字 の 回 数 だ け ボ タン を 押し て くだ さい 。「 せ っ 1! ] 
の と ころ で 各自 ボタ ン を 押す と , それ ぞ れ の 手 の 指 を 立て る こと が で きま す 。 手 を 1 つ 
し か 出し て いな い 場 合 は , 2 つの ボタ ン の どちら を 押し て も , 指 を 立て る こと が で きま 
す 。 宣言 し た 数 字 と , 場 に 立っ て いる 指 の 数 が 一 致す る と , 宣言 し た 人 の 手 が 1 本 引っ 


[Fig.5-8 】 YUbi_*.bmp 


DDI の ー で っ 


yubi_1.bmp yubi_2.bmp yubi_3.bmp yubi_4.bmp yubi_tLbmp yubi_n.bmp 
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込み , 手 を 両方 引っ 込め られ た 場合 に は 「WINNER」 の 表示 が 出 て , 勝っ た こと を 告 
0 
画面 に 戻り ます 。 


放 衣 代 yubi1.bin の 実行 画面 


た よ よ た 
そく マ マ 


2 旋 プロ グラ ム の ボイン ト 

プロ グラ ム 中 で は , 各 プ レイ ヤー の 手 の 状 態 な ど を 管理 する た め に , 構造 体 player 
型 を 定義 し 利用 し て いま す 。 各 プレ イヤ ー に 関す る 情報 は . すべ て この 構造 体 で 管 
され て いま す 。 構造 体 用 いる こと で , 「 メ ッ セ ー ジ 表示 x 座 標 ]」 を 「 プ レイ ヤー1 の メ 
ッ セ ー ジ 表示 x 座 標 」 p1ayers [1] .msg[0] と いう 表現 に し て や る こと が で きま す 。 こ 
の よう に , プロ グラ ム の 可読性 が 高まる だ け で な く , ルー プ 処 理 な ども 行い や すく な 
り ま す 。 指 表示 を 行う aisp1ay hands () の 処理 を , 構造 体 な し で 実現 する 場合 な ど 
を 考え て みる と よい で し ょ う 。 

指 の 数 の 予想 人 力 の 処理 で は , ボタ ン が 押さ れ た 回 数 を 数 を ます 。 こ の 処理 を 実現 
する に は , ボタ ン が 押さ れ て 放さ れ た 時 点 で カウ ント し な けれ ば いけ ませ ん 。 前 回 の 
ボタ ン の 状態 と , 新た に 取得 し た ボタ ン の 状態 を XOR (排他 的 論理 和 ) で 論理 演算 す 
る こと で , 状態 の 変化 し た ボタ ン だ け を 調べ , それ ら の うち , 前 回 に 押さ れ た 状態 だ 
っ た ボタ ン を AND (論理 積 ) で 論理 演算 し 取り 出す と いう 方 法 を 使い ます 。 前 回 と 今 
回 で 状態 が 変わ っ て いて , 前 回 押さ れ て いた と いう こと は , 今回 放さ きれ た と いう こと 
に な り ま すね 。 

この 遊び の ルー ル で は , プレ イヤ ー が 行う こと は 2 種類 あり ます 。 予想 す る こと , 指 
を 立て る こと の 2 種類 で す 。 コ ンピュータ の プレ イヤ ー に も , この 2 種類 の 動作 を 行っ 
て も ら わ な けれ ば な り ま せん 。 ま ず , コン ピュ ー タ は , 基本 的 に は 乱数 で 予想 し ます 
が , 場 に 出 て いる 手 の 数 より 多く の 指 が 立つ こと は あり えな い の で , 場 に 出 て いる 手 
の 数 以下 の 予想 を 立て る よう に し て いま す 。 指 を 立て る と きも , 基本 的 に は ラン ダム 
に 指 の 状態 を 決め ます が , 自分 が 予想 を 行っ て いる と き に は , 自分 の 予想 し た 数 字 よ 
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g 記 al リ yubi1.c の 処理 の 流れ 


テキ スト 機能 を 裏 技 的 に 使っ て フォ ント デー タ を テー ブル に 登録 


手 や 「 い っ せ 一 の 一 せ ! | の 画像 を キャ ラク タテ ー ブ ル に 登録 


player 型 構造 体 players[441 に プレ イヤ ー ご と の 情報 を 登録 


プレ イヤ ー 全 員 の 場 に 出し て いる 手 を 2 本 ずつ に する 


「GAME START| を 表示 


START ボ タン が 押さ れ た 5 ら 終了 


[GAME START」 を 消去 


「 指 の 数 を 入力 し て | を 表示 


PP 


ー 乱 織 ル ー プ で 待っ 


コン ピュ ー タ が 予想 する 番 の と き は 、 場 に 出 て いる 手 の 却 以内 で 乱数 で 予想 


指 の 数 の 予想 が 、 場 に 残っ て る 手 の 数 より 大 きく 
な ら な いよ うに 修正 


人 間 の プレ イヤ ー の 指 の 状態 を 取得 


コン ピュ ー タ の 指 の 状態 を 決定 
コン ピュ ー タ が 予想 する 番 の と き 、 自 分 の 予測 より 
自分 の 立て る 指 の 数 が 多く な ら な いよ うに する 


START ボ タン が 才 1 


押さ れ た 


対象 と な る 手 に 対応 し た ボタ ン の 状態 を 調べ る 


対象 と な る プレ イヤ ー の 残り の 手 が 1 本 の 場合 は 
どちら の 手 の ボ タン を 押し て いて も 、 押 され た 状態 と する 


対象 と な る 手 を 、 ボ タン が 押さ れ た 状態 に 応じ て 表示 
た だ し , その 手 が 場 に 存在 し な い 場 合 は 空白 で 表示 
各 プレ ー ヤ ー の 各 手 を ルー プ で 処理 する 


予想 が 当たっ て いる 


予想 し た プレ イヤ ー の 場 に 出し て いる 手 を 1 本 減ら す 
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り 自 分 の 立て た 指 が 多く な ら な いよ うに 工夫 し て いま す 。 

予想 が 当たっ た プレ イヤ ー は , 1 本 手 を 引っ 込め る こと が で きま す の で , 構造 体 
player に ある , 出し て いる 手 の 数 を 表す メン バ handg を 1 減ら し ます 。 減ら し た 結果 , 
その プレ イヤ ー の 出し て いる 手 の 数 が 0 に な っ た ら , その プレ イヤ ー の 勝ち に な り ま す 
の で , 「WINNER」 を 表示 し ゲー ム を 終了 し ます 。 

各 プ レイ ヤー の 手 を 表示 する gisp1ay hands () で は , 「 プ レイ ヤー を 表す 変数 1 を 
カウ ンタ と する ルー プ ]」, 「 手 の 1 本 目 , 2 本 目 を 表す 変数 j を カウ ンタ と する ルー プ ]| の 
2 重 ル ー プ で 4 人 の プレ イヤ ー の 8 本 の 手 を 処理 し て いま す 。 そ れ ぞ れ の 手 の 状 態 を 表す 
players[i] .pkey[]] に 基づい て , 指 を 立て る か どう か 決め ます が , プレ イヤ ー の 
手 の 残り が 1 本 の と き は , 2 つの ボタ ン の どちら か が 押さ れ て いて も 指 を 立て る こと に 
し ます 。 基 本 的 に は , ボタ ン の 状態 に あっ た 指 の 画像 を 表示 し ます が , 残り の 手 の 本 
数 が , 変数 j よ り 小さ めい 場合 は , すでに 場 に 描こ うと し て いる 手 は な い の で , 手 で は な 
く 空白 を 表示 する よう に し ます 。 

ジグ 攻 和 みみ の プル イツ ヤー を 。 なっ と 情 で な る よう に 上 夫 じ た り 、 表示 や 背 み どの 
演出 を 工夫 し た り , ルー ル を 拡張 し た りす れ ば , も っ と 楽し く 遊 べ る よう に な る で し 
よう 。 


List 5-4 yubi1.c 


#1nclude く std11b.h> 
#1nc]ude <sys/btos -h> 
#1nclude "yub1 1.h" 
#inc1ude "yubi 2.h" 
#inc1ude "yubi 3.h" 
#1nclude "yubi 4.h" 
#include "yubi n.h" 
#1include "yubi t.h" 


/* プレ イヤ ー を 表現 する 構造 体 piayer 
hand: 出 し て る 手 の 数 
msg[2] : 「 数 を 入力 し て | を 出す 座標 
hmap [21 [21] : 手 を 表示 する 座標 
pkey[2] : ボタ ン の 押し 状態 
key[2] : 監 視 す る ボタ ン */ 
typedef struct { 
char hand: 
char msg[2]: 
char hmap[2] [2]: 
char pkey[2]: 
int key[2]: 
) p1ayer: 
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Yo1d display hands () : 
int key wait up(in) : 


uns1gned short cmap[18] [28]: 
player players[4]: 


vo1d main() { 
unSiqned char trnz 
in now count, o1d key state, 1, ], k, 1 mz 


/* テキ スト 機能 を 裏 技 的 に 使っ て フォ ント デー タ を テー ブル に 登録 */ 
text screen 1ni て (): 
text put string(0, 0, " 数 を 入力 し て GAME STARTWTNNER") : 


disp1ay contro] (DCM SCR1 ) 

font set co1ordata(36, 8 * 4, bmp yubi 1): 
font set co1ordata(68, 8 * 4, bmp yuDb1i 2): 
font set co1ordata(100, 8 * 4, bmp yubi 3) 
font set co1ordata(132, 8 * 4, bmp yubi 4)z 
font set co1ordata(164, 7 * 7。 bmp yubi n) 
Font se co1ordata(213, 7 * 7, bmp yubi も ): 


players[0] .msg[0] = 22: 
players[0] .msg[1] = 17: 
players[0] .hmap[0][0] = 14: 
players[0] .hmap[0] [1] = 11: 
players[0] .hmap[1][0] = 21: 
players[0] .hmap[1][1] = 11: 
players[0] .pkey[O] = 0』 
players[0] .pkey[1] = 0: 
players[0] .key[0] = KEY B: 
players[0] .key[1】 = KEY Az 


players [1] .msg[0] = 0 


players [1] .msg[11 = 17: 

players [1] .hmap[0][0] = 7: 
players [1] .hmap[01 [1] = 11: 
players [1] .hmap[1][0] = 0: 
players[1] .hmap[1] [1] = 11: 


players[1] .pkey[O] = 0』 
players[1] .pkey[1] = 0』 
players[1] .key[0】 = KEY X3: 
players[1] .key[1] = KEY X4: 
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players[2] .msg[0] = 0: 
players [2] .msg[1] = 0: 
players [2] .hmap{0]1[0] = 7: 
players [2] .hmap[0][1] = 0: 
players[2] .hmap[1][0] = 0: 
players [2] .hmap [11 [1] = 0: 
players[2] .pkey[0O] = 0: 
players[2] .pkey[1] = 0: 
playerSs [2] .key[0] = KEY Y1: 
playerSs[2] .key[1] = KEY Y4: 
players[3] .msg[0] = 22: 
players[3] .msg[1] = 0: 
players [3] .hmap[0][0] = 14: 
players [3] .hmap[0][1] = 0 
players[3] .hmap[1][0] = 21: 
players[3] .hmap[1] [1] = 0: 
players[3] .pkey[O] = 0: 
players [3] .pkey[1] = 0: 
players [3] .key[O] = 0: 
players[3] .key[1] = 0: 
Srand(0): 

while(1) 【 


players[0] .hand = 2: 
players[1] .hand = 2: 
players[2] .hand = 2,: 
players[3] .hand = 2: 


/* GAME START */ 
for(1 = 0z: 1 く 28 i++) 
for(] = 0 ] < 18 〕++) 
cmap []][i] = 8: 
Eori(1 三 0z エ ぐ 107 キキ) 
cmap[8][9 + 1] = 15 + ュ 』 
screen se char(SCREEN1, 0, 0, 28, 18, cmap) 


/* START ボ タン が 押さ れ た ら 終 耳 , 

X1, X2,。 Y2, Y3 が 押さ れ た な ら 次 へ */ 
1 = key wait up(KEY X1 | KEY X2 | KEY Y2 | KEY Y3 | KEY START): 
1 (1 == KEY START) 

Dreakz 


Eo:( せ 三 07 エエ で 0: せ 圭 キ ) 
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IM 


cmap[8][9+ i] = 8: 


/* メイ ン ル ー プ */ 
For (て rrn = 0 1: 上 rn++,。 trn も = 4) 【{ 


/* 指 表示 */ 
disp1ay hands () : 


/* 数 を 入力 し て */ 

for(] = players [trn] .msg[0], k = 9: 
] < players [trn] .msg[0] + 6: ]++, k++) 
cmap [players [trn] .msd[1]]1[]] = kz 


for(1 = 0, o1d key state = 0, now count = 0z 1 < く 13000: i++) { 
/* いっ せ ー の 一 せ ! */ 
iEF(i も 4000 == 0) { 
fori(1 三 7。 m 36+ エ / 4000 * 327 1 < 11: ]++) 
For(k = 10z k < 18: k+ 十 , m++) 
cmap[1][k] = mz 
Screen se char(SCREEN1, 0, 0, 28, 18, cmap) 
] 
/* 指 の 数 の 予想 の 入力 */ 
if(1 < 12000) { 
k = key presS check() 
1 = (o1d key state ^ k) & o1d key state: 
o1d key state = k: 
for(k = 0z kk く 2: k++) 
1iE(] & players [Ern] .key[k] ) 
nOW COUun モ ++ ょ 


/* コン ピュ ー タ の 指 の 数 の 了 予想 
場 に 出 て る 手 の 数 以内 で ラン ダム */ 
1F (Ern == 3) { 
宮 天 作 委 三 0。 J 肖 で 4 が まり 
] += players [1] .hand: 


now_ Count = rand() ち (] + 1): 


/* 指 の 数 の 予想 が , 
場 に 残っ て る 手 の 数 より 大 きく な ら な いよ うに 修正 */ 
EQP( ユ 呈 0。 ] テ 0 ヵ ユ で 4: 1 キ +) 
] += players [1] .handz: 
3f(now_ count > ]) 
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now Count = ]: 


/* 各 プ レイ ヤー が 指 の 状態 を 入力 */ 
1 = key presS check() 
Eor(] 三 0: ] く 37 3+ キ ) 
for(k = 0: k < 2。 kt+) 人 { 
if(1 g players[]] .key[k] ) 
players[]] .Pkey[k] = 1: 
e1se 
players[]] .pkey[k] = 0 


/* コン ピュ ー タ が 指 の 状態 を 決定 
自分 の 了 予測 より 自分 の 立て る 指 の 数 が 多く な ら な いよ うに する +*/ 
を (も で 三 呈 きり) 


] = now Coun: 
el1se 

出 得 選 人 
(オツ 0) 

players[3] .pkey[0] = rand() $ 2: 
e1se 

players [3] .pkey[0] = 0: 
人) 

players[3] .pkey[1] = rand() $ 2: 
e1Se 

playerSs [3] .pkey[1] = 0: 


/* 指 表示 */ 
display hands () : 
Screen set char(SCREEN1, 0, 0, 28, 18, cmap) 


/* 予想 的 中 判定 */ 
for(1 =0, ] = 0z: ii < 4 ュ ++) 
For(k = 0z: k く 2: kk++) 
] += players [1] .pkey[k] 
1f(] = ニ = now Coun) 
players [trn] .hand-- 


/* 勝負 判定 */ 
if(players [trn] .hand == 0) 【 
/* WTNNER */ 
For(] = players [trn] .msg[0], k = 25: 
] ぐ players[trn] .maqd[O] + 6: ] ナ キ 。 k+ す ) 
cmap [playerSs [trn] .msd[1]][]] = kz: 
Screen se char(SCREEN1, 0, 0, 28, 18, cmap) : 
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/* START ボ タン , x1, x2。Y2, Y3 が 押さ れ た な ら 次 へ */ 
key wa1t up(KEY X1 | KEY X2 | KEY Y2 | KEY Y3 | KEY START): 
breakz 


EGOE(J デ 0 が di く 。 107 ヨ ま ) 
1 


for(i = 0: ュ < 30000: i++) 


/* 指 表示 */ 
void display hands() { 


gk 97 0 (1 


for(1 = 0 < く 4 ユエ ++) 
Eo お (3 三 0 引く 27. FR) 1 
1 = p1ayers [1] .pkey[]]: 
if (pl1ayers [1] .hand == 
&g& payers [1] .pkey[0] + players[i] .pkey[1] > 0) 
1 三 ミ 
for(k = players [1] .hmap[]][1], 1 = 164 +] * メ 7 フォ 7: 
k < pl1ayers [1i] .hmap[]] [1] + 7: kK++) 
for(m = players [1] .hmap[]] [0]: 
mm く players [1] .hmap[]】 [0] + 7: m++, ]++) { 
if(players[i] .hand > ]) 


cmap[k][m] = 1z 
else 


cmap[k] [m] = 8z 


/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
int key wait up(in mask) { 
1nt 1i,。 re> 


while(!((1 = key wait() ) & mask) ) 
で GE ミッ 


while(key press check() & ret): 


Gturn て 6 


130 電 第 5 章 と に か く 作っ て みよ う 


特 反射 ゲー ム 


本 当 に お も し ろ い 遊び と いう も の は , 何 年 経っ て も 楽し め る も の で す 。 コ ンピュータ 
ゲー ム が 消費 され て し まう も の に な っ て 久しく な り ま す が , 単純 な ミニ ゲー ム ほ ど 長 
く 遊 べた り し ます 。 こ こ で 紹介 する 反射 ゲー ム も , 10 年 以上 前 に 筆者 が 遊ん だ ミニ ゲ 
ー ム を 思い 出し て 作っ て み ま し た 。WonderSwan の よう な 携帯 ゲー ム 機 な ら , どこ で も 
少し の 空き 時 間 を 利用 し て 使え ます か ら , た くさ ん の ミニ ゲー ム を WonderWitch に 満 
載 し て お く と 楽し く 遊 べ る と 思い ます 。 


< 疫 反射 ゲー ム の プロ グラ ム を 作る 


ここ で 作る 反射 ゲー ム と は , 画面 の 端 で 跳ね 返り な が ら 動く ボール を , A ボ タン に よ 
っ て 出現 する 反射 板 で コン トロ ー ル し て , フィ ー ル ド 内 に 落ち て いる アイ テム を 制限 
時 間 内 に すべ て 拾う と いう ゲー ム で す 。 

「 反 射 ゲ ー ム ] と タイ トル が 表示 され て いる と き に , A ボ タン を 押す と ゲー ム 開 始 し , 
START ボ タン を 押す と ゲー ム を 装 了 了 し ます 。 ス テー ジ を クリ ア し て いく ゲー ム で , ス 
テー ジ が 進む と フィ ー ル ド の アイ テム が 増え ます 。 ス テー ジ は , 50 面 まで と し ます 。 
各 ス テー ジ で は , 設定 され た 残り 時 間 以 内 に , フィ ー ル ド 上 の アイ テム に ボー ル を 当 
て て , すべ て の アイ テム を 消さ な けれ ば な り ま せん 。 ボー ル を 操作 する た め に は , A ボ 
タン を 押す ご と に 出現 する 反射 板 を 使い ます 。 反 射 板 は , 反射 する 方 向 の 違う 2 種類 の 
も の が , 交互 に 出現 し ます 。 ス テー ジ を クリ ア す る と , 残り 時 間 が 得点 に 加算 され ます 。 

この よう に プロ グラ ム し た の が refl.c (List 5-.5) で す 。 コ ン パ イル し て , 遊ん で み ま 
際 遇 9 


3 思 ref1.bin の 実行 画面 


PF: 妥 目 ち じ ETHRE TU 本 
グ 
6 1 
デ 弄 NO 
〒 
Pd 
へ 2 
e ヽ ノ 
合 | 
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> 次 プロ グラ ム の ボイン ト 

プロ グラ ム は , main () の 他 に , ステ ー ジ 内 で の 処理 を 行う ref main(), 前 出 の 
key wait up(), 数 値 を 表示 する set number () と いっ た 関数 で 構成 され て いま す 。 

画面 構 友 と し て は , ボー ル の 表示 に スプ ライ ト 0 番 を 使用 し , 残り の 表示 に は スク リー 
ン 1 を 使用 し て いま す 。 通常 , 頻繁 に 動き ま 回 る よう な 物体 の 表示 に スプ ライ ト を 利用 し , 
あま り 動 か な いも の は 背景 に 表示 する よう に し ます 。 sprite set range () で 指定 
し た スプ ライ ト は 画面 上 に 表示 され っ ぱな し に な る の で , 画面 上 に 居 て 欲し く な い 場 
合 は , 表示 画面 外 の 座標 を 与え て, 見 えな いと ころ に 置い て お きま す 。 ま た , この ゲ 
ー ム で は , bmpcnv.exe か ら 作 られ る 画像 デー タ を 使わ な いで , すべ べ て 文字 キャ ラク タ 
だ け で 表示 を 行っ て いま す 。 絵 素 材 に 頼ら ず 文字 キャ ラク タ だ け で も , アイ デア 次 第 
で で 下 券 に ゲー バム は 作る の で す 。 


ref1.c の 処理 の 流れ 


テキ スト 機能 を 東 技 的 に 使っ て フォ ント デー タ を テー ブル に 登録 
スプ ライ ト で 「@」 を 使う 準備 


「 反 射 ゲ ー ム ] の タイ トル を 表示 


A ボ ポタ ン が 押さ れ た 


「TIME] 、「SCORE]」 、「STAGE*」 の 表示 


A ボ タン 待ち 


ゲー ム 本 体 の 処理 


STARHT ボ タン が 
押さ れ た 


現在 の 得点 と 、「STAGE CLEAR」 を 表示 
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ゲー ム 本 体 の 如 理 フィ ー ル ド に アイ テム を 搬 く 
ボー ル 「@」 を 初期 位置 に 置く 


残り 時 間 (time_count) を 表示 する 


いい え 
ぶつ か っ た アイ テム を 消す 
残り アイ テム の 個 を 1 減ら す 


移動 方 向 を 変え る 


ref_count = 0: 


残り アイ テム は まだ ある ? 


は い 


ref_count が 15 に な っ て いる ? 


いい え 
移動 方 向 を 変え る 
反射 板 上 


移動 方 向 を 変え る 
ボー ル を 移動 方 向 に 進め る 
wait を か け て 、 ゲ ー ム の スピ ー ド 調節 


A ボ タン を 押し 、 下 げた 有 瞬間 か ? 
反射 板 を 出現 させ る 


残り アイ テム が ある ? 
return 残り 時 間 : 


ボー ル が 反射 板 に ぶつ か っ た ? 


反射 ゲー ム 大 


0 


ref main() は , 配置 する アイ テム の 数 と ゲー ム 進 行 の スピ ー ド の 2 つ 引 数 を 用 いて , 
ステ ー ジ の 処理 を 行い , 時 間切 れ も し く は 反射 板 に 挟ま っ て 閉じ 込め られ た ら 0 を , ス 
テー ジ を クリ ア で きた ら 残 り 時 間 (得点 ) を 返し ます 。 

reF main() で は , ボー ル の 動作 を 処理 する た め に , 2 つの 要素 が 参照 され ます 。1 
つ は , ボー ル の 進行 方 向 を 管理 する 変数 xy, yy で す 。 そ れ ぞ れ の 値 を , ボー ル の 位置 
を 表す 変数 x, y に 加え て いく こと で , ボー ル の 移動 が 行わ れ ま す 。xyv, yv は -1, 0, 
1 の いずれ か の 値 し か と り ま せん 。 ボ ー ル の 動作 を 決め る も う 1 つ の 要素 は , どこ に 何 
の キャ ラク タ が ある か を 格納 し て お く cmap[] [] で , 現在 ボー ル の ある 位置 と 突き 合 
わせ て , アイ テム を 拾っ た り , 反射 板 で 跳ね 返っ た りす る 処理 を 実現 し て いま す 。 ア 
イ テ ム を 拾っ た 場合 は cmap [] []」 上 か ら ア イ テ ム を 削除 し ます 。 反射 板 や 画面 の 端 で 
跳ね 返る 時 は , xyv, yyv を 符号 反転 し た り 入 れ 替 えん た り し て いま す 。 ま た A ボ タン で 反 
射 板 を 出す 場合 も , すでに 反射 板 が ある 場所 で は 反射 板 を 置け な いよ うに し て いま す 。 

ref main() の 引数 で , ゲー ム 進 行 の スピ ー ド を 変え られ る よう に し て ある の は , 
アイ テム 数 が 増え る と , 残り 時 間 が 増え て 余裕 が で きる の を 抑え る た めで す 。 

set number() で は , 万 の 桁 ま で の 数 値 を , 指定 され た 座標 を 起点 に し て 表示 し て 
いま す 。 main () の 始め で , キャ ラク タテ ー ブ ル の 26 番 以降 に 0 一 9 の フォ ント デー タ を 
登録 し て いる の で , これ を 利用 し て 表示 を 行い ます 。 数値 を 表示 する 文字 列 の 後に , 
空白 で ある 8 番 キ ャ ラク タ を 1 個 追 加 し て いる の は , 残り 時 間 表 示 に 利用 する 際 に , 桁 
が 減っ た と き に ゴミ を 残さ な いよ うに する た めで す 。 

この 反射 ゲー ム は, 得点 の 概念 が 導入 され た こと に よっ て , 非常 に コン ピュ ー タ ゲー 
ム っ ぱい も の に な り ま し た 。 み ん な で 得点 を 競っ た り で きる よう に な っ た わけ で す 。 
さら に , 反射 ゲー ム に 最高 得点 を 残し て お く 機 能 を つけ 加え れ ば , より 楽し く 遊 べ る 
で し ょ う 。 フ ァイル 入出 力 を 使っ て , 得点 を 残せ する よう に 改造 し て みて くだ さい 。 


List5-5 ref1.c 


#1nc1ude く std1iDb .h> 
#1nc1ude <sys/bios .h> 


unsigned short cmap[18] [28]: 
nt ref main(int, in) : 
nt key _ wait up(in): 


Void se number (1nE, 1nt, 1n) : 


vod main() ({ 


る 打 攻 うす 。 コ 。 KK。 SCOEGy 
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/* テキ スト 機能 を 裏 技 的 に 使っ て フォ ント デー タ を テー ブル に 登録 */ 
text screen ini(): 
text put string(0, 0, 
" 夫 プ 8 〒oco ブ の 也 ※TTMESCORE0123456789STAGE CLEAR 反射 ゲー ム ") 』 


/* スプ ライ ト で 欠 を 表示 */ 

disp1ay contro1 (DCM SPR | DCM SCR1) : 

Sprite set range(0, 1): 

palette set co1or(12, 0x7300): 

Sprite se char(0, CFM SPR UPPER | (12 - 8) * 0x200 | 9): 
Sprite set 1ocation(0, 224, 144): 


srand(0) 


while(1) { 
/5 反 箕 の ば / 
下 @E。( 下 : 三 07 Y くる 287 呈 ) 
Eo 正三 0z 攻 く . 38: ます) 


cmap[]] [1 = 8: 
EOEi( ユ 三 0 テ は き ぐう 5z ミキ まう) 
cmapP[8][12 + i] = 47+ ュ : 


Screen Set char (SCREEN1, 0, 0, 28, 18, cmap) : 


/* START ボ タン が 押さ れ た ら 終 了 , 

A ボ タン が 押さ れ た な ら ゲ ー ム 開始 */ 
1 = key_ wait up(KEY A | KEY START) : 
1f (1 == KEY START) 


break: 
/* THME テ / 
for(1i = 0,: ュ < 4: エエ ++) 

中 基き [OF 生 キ 1 呈 7 キ ぁ 
/* SCORE */ 


SCore = 0: 
ま oF( ユ ー 0: 1 ぐ 5: ff) 
cmap[0] [1 + 14] = 21 + ュ : 


for(k = 1: k < 51: k++) { 
/ は ス デ ー ジ * */ 
EoE(3 三 0 ょ 。 ミミ そ で 28。 せ 和 上 ) 
OH 三 。 ま か 、 | べべ 半 8 が 。 1) 


cmap[]][1] = 8: 
For(1 = 0z 1 く 5: ユエ ++) 
cmap[8][10 + ュ ] = 36 + ig 


set number(16, 8, k): 
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1 


tf(k 


se number(6。 0, k * 100): 

Se 上 number(20, 0, score) : 

screen set char(SCREEN1, 0, 0, 28, 18, cmap) : 
key_ wait up(KEY A): 

/* ゲー ム 本 体 の 処理 */ 

] = ref main(k, Ox40 - k): 


Sprite set 1ocation(0, 224, 144): 


/* ゲー ム 終 了 判 定 */ 
全島 電 8 
break: 
/* スコ ア 表 示 */ 
SCOre + ニ ]: 
Set numbper(20, 0, Scor@) 
/* STAGE CLEAR */ 
Eor.( ユ = 0: 1 く 117: せ せ せ ) 
cmap[8][8 + ュ i] = 36+ 1i: 
screen set char(SCREEN1, 0, 0, 28, 18, cmap) : 
key_ wait up(KEY か ): 


!= 50) 
key wait up(KEY A): 


/* ゲー ム 本 体 の 処理 */ 


int ref main(int item count, nt wa coun キ t) { 


nt x, Y, XV, YYV,/ VC, refF Count, o1d key State, 


Mn 二 


00 
VC = 


ref_ count = 0: 
o1d key state = 0 


time count = item Count * 100: 


/* フィ ー ル ド に アイ テム を 撤 く */ 
江 @E:( 三 05 エ で 287 3 キキ) 
for(] = 1: ] < 18: ]++) 


下 OEGY 
1 


9 


cmap[]][1] = 8: 

0: 1 < item count』 ュ ++) { 
rand() $ 28: 

fandi() る H7 や 4) 
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time_ count, 1。 


tfF(cmap[【 
Cmap 
el1se 
ーー: 
} 


SCFeern Se で 


X 三 1127 
y = 72: 
Sprtte se 1 


while(1) { 
/* 残り 時 
Se numb 
SCreen _S 
if(!time 
brea 


time cou 


Y] 【x] == 8) 
[y][x] = 11 + rand() $ 6: 


har (SCREEN1, 0, 0, 28, 18, cmap) 


ocation(0, x,。 ) 


間 表 示 */ 
er(6, 0, time count) : 
et char(SCREEN1, 0, 0, 28, 18, cmap) 


_ COUn) 


kj 
0 革 ニ ニッ 


Switch(cmap[y / 8][x / 8]) { 


/* ボー ル 
CaSG 
Ca8G 
CaS@e 
CaS@ 
CaSG 
CaS@G 


が アイ テム に ぶつ か っ た ら , アイ テム を 拾う */ 
中 
12: 
出 3:< 
14: 
5 は 
16: 
cmap[y / 8][x / 8] = 8: 
Screen_ set char(SCREEN1, 0, 0, 28, 18, 
1tem CoOun キ -: 
Dreak: 


/* ボー ル が 反射 板 に な つか っ た ら , 反射 */ 


CaS@ 


CaSG 


defa 


10: 
XXV テニ =1』 
YV * ニ ーー]1: 
10 | CFM FLTP V: 
1 ニーyYVz 
YV = xVz 
XV = ュ : 


ref Coun++: 
break: 

un1 キ 上: 

ref count = 0: 
break: 


Cmap) : 
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/* 拾う アイ テム が な く な っ た ら 終 了 */ 
if(!1tem CoOun) 

break: 
/* 反射 板 に ぶつ か り 続 けた ら , 

板 に 挟ま れ て 身動き 取れ な いと 考え , 終了 */ 
if(ref count == 15) 

break: 


/* 歴 で 反射 */ 


ュ = 0: 
1f((x <= 0 && xV == -1) | (x >= 216 && xV = ニー ENU 
XV メニ ー1: 
1 = 1: 
} 
1iE((y <= 8 gss yv == -1) || (y >= 136 sg yV == 1)) ( 
YV. ば ニニ 1 
ュー テ 15 
(3) 
switch(cmap[y / 8][x / 8]) { 
case 10: 
XXV メニ ー1: 
YV メニ =17 
case 10 | CFM FLIP V: 
1 = yVz 
YV = XVz 
XV ニュ : 
breakz 


1 


/* ボー ル を 進行 方 向 へ 進め る */ 

メ オー 8 * XVz 

Y += 8 * yV 
sprite set 1ocation(0, x, Y) > 


/* ゲー ム の スピ ー ド 調節 */ 
for(1 = 0: i < wait count: ユ ++) 
for(] = 0: ] < 300: ]++) : 


/* ボー ル の 位置 が 空白 で な いと , 反射 板 を 出す 処理 は し な い */ 
ifE(cmap[y / 8][x / 8] != 8) 


COn1nue: 


/* A ボ タン を 押し た 瞬間 で な いと , 反射 板 を 出す 処理 は し な い */ 


ュ = key PresS Check(): 
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1f(!(1 & KEY か A) || o1d key state) { 
o1d key state = 1 & KEY Az 
continue: 


} 
o1d_ key state = 1 & KEY Az 


/* 反射 板 を 出す */ 
す ぞ (vVC も 2) 

+ = CE FLTP V: 
e1Se 


ュー テ 0: 
cmap[y / 8][x / 8] = 10 | i: 
Screen set char(SCREEN1, 0, 0, 28, 18, cmap) : 


C+†』 


/* ゲー ム オ ー バ ー 検 出 */ 
1f(1tem Count ) 

return 0: 
e1se 

return 上 ime Count: 


/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
nt key wait up(int mask) { 
nt 1, ret。 


while(!((1 = key wait()) & mask) ) 
ret = 1: 


while(key press check() & ret) 


reurn Gt: 


/* 数 値 を 表示 */ 
Vo1d se number(int cx, nt cy, nt no) { 
int 1 = ox, ] = 10000, k, ] = 0: 


Eor(k =no/] き も 10:]!= テ 00: ] / ニ 10,k=no/]$ 10) 
if(k || 1) {( 
cmap[cy][i] = 26+ kz 
ユエ オ オ 』 
出 。 三 。 1 
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ュ if(no == テ 0) { 
cmap[cy][1] = 26: 
ュ オ オ 』 

] 

cmap [cy][i] = 8: 


sy 絶対 痛感 


世の中 に は さま ざま な 人 違い の わか る 人 が いま す 。 音 に 関し て も そう で , わか る 人 に 
は 「 こ の 音 は ド だ ね | と わか る よう で す 。 あ る 程度 は 訓練 に よっ て 聴き 分 けら れる よ 
うに な る らし い の で , 訓練 する た め の プ ログ ラム を 作っ て み ま し ょ う 。 


2 側 音 を 当て る ゲー ム の プロ グラ ム を 作る 


オー ソ ド ッ クス な 音階 で は , 周波 数 が 440Hz の 音 が ラ に な り ま す 。1 オ クタ ー ブ 上 げ 
た ラ の 音 の 周波 数 は 880Hz と 倍 に な り , 1 オク ター プ ブ を 12 に 分 割 し た 値 が 半音 の 間隔 に 
な り ま す 。 ここ で は , さま ざま な 高き さ の ラ の 音 を 当て る プロ グラ ム を 作っ て み ま し ょ う 。 

チャ ン ネ ル ご と に 指定 し た 周波 数 の 音 を 出力 する 関数 sound set_pitch() (p.60) 
で 出力 可能 な 周波 数 は , 引数 Ereq を 0 一 2047 の 範囲 と し て , 次 の 式 に 代入 する こと で 


9.072 X 10”  ((2048 一 freg) X 32) Hz 


46.875Hz 一 96000Hz の 範囲 と 求 ま り ます 。 こ の 範囲 内 に , 何 オ クタ ー ブ 分 の ラ の 音 が 人 
る か 調べ る と , 55Hz (440Hz の 3 オク ター プ ブ 下 ) 一 56320Hz (440Hz の 7 オク ター プ ブ 上 ) 
の 11 個 だ と わか り ま す 。 つ まり , sound set pitch() に は 11 オ クタ ー ブ 分 の ラ の 音 
を 指定 で きま す 。 

実際 に 求め た 11 個 の 音 を 鳴ら し て みる と , 内 蔵 ス ビー カー で は , 高い 周波 数 の 音 の 
出力 が 不安 定 に な る こと が わか り ま す 。 そこで, 11 個 の うち , 安定 し て 出力 で きる 音 
の 上 限 を 調べ て みた と ころ , 7040Hz が 限界 だ と 判断 し まし た 。 こ の 判断 か ら , プロ グ 
ラム 中 で は , 55Hz 一 7040Hz の 8 個 の ラ の 音 を 使用 する こと に し ます 。 

onkan1.c (List 5-6) が , ラン ダム に 出題 され る 8 個 の ラ の 音 を 当て る 訓練 プロ グラ ム 
「 絶 対 音感 |」 です 。 第 3 章 で 使用 し た sounddef.h (p.56) を , 同じ ディ レク トリ に お いて 
コン パイ ル し て くだ さい 。 
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当て る べき 音 を 開か せ , その 音 を 再現 きせ , 正解 か どう か 判断 する 処理 を , 10 回 で 1 
ゲー ム と し , 得点 も 出る よう に し て あり ます 。 音 を 再現 させ る 部 分 で は , X ボ タン の 操 
作 で 周波 数 を 上 下さ せ , A ボ タン で 確定 と し て いま す 。 


as onkan1.bin の 実行 画面 
| FE ロ RE 


この 吉 を 憶え て 


= 交 プロ グラ ム の ボイン ト 
当て る べき 音 を 聞か せる 処理 で は , 周波 数 の テー ブル を あら か じ め 作 っ て お き , そ 
の 中 か ら ラ ンダ ム に 選ば れ た 値 を 


2048 一 3.072 X 10" = (周波 数 X 32) 


と いう 式 に 渡し , 求め られ た 値 を sound set pitch() に 与え ます 。 こ の 式 は 
sound set pitoh () に 与え る 値 と 周波 数 の 関係 式 を 変形 し た も の で す 。 

正誤 判定 で は , まず , sound set pitoch () に 与え る 値 の 単位 で , 問題 の 音 と, 解 
答 の 音 が 完全 に 一 致す る か 調べ ます 。 し か し , この 調べ 方 で は , 正解 を 出す の が ほぼ 
不可 能 な の で , 音 の ズレ が 「 半 音 の 1/8] に 満た な けれ ば , 正解 と し て いま す 。 半音 と 
は , 周波 数 上 で 1 オク ター プ ブ 違 う 音 と の 間 を 12 等 分 し た も の な の で , さら に それ の 1/3 
の 範囲 を 求め て , 正解 か 判定 し て いま す 。 こ の と き , 周波 数 上 で は , 1 オク ター プ ブ 上 の 
音 と の 間 の 半音 と , 1 オク ター ブ 下 の 音 と の 間 の 半音 で は , 上 の 方 の 半音 の 方 が 倍 の 幅 
に な っ て いる の で , 別々 に 処理 し て や る 必要 が あり ます 。 さらに , 正解 と の ズレ が 1 オ 
クタ ー プ 以上 あっ た 場合 は , ペナ ル テ ィ と し て 得点 を 減ら し ます 。 

自分 で 作っ て お いて いう の も な ん で す が , 全然 正解 で き な い の で , スト レス が 溜 ま 
り ま す 。 も っ と 楽し く < 訓練 で きる よう な アイ デア か ら 作 れ ば , 上 達 の 効果 も 高まる で 
し ょ う 。 頭 を 捨 っ て , オリ ジ ナ ル な 音 ゲ ー を 作っ て みて くだ さい 。 


絶対 音感 巧 14] 


Eonkan1.c の 処理 の 流れ 


ーー と ーーー 
A ボ タン 


「 さ っ き の 音 を 思い 出し て 」 を 表示 


X ボ タン で 鳴 
A ボ タン で 


回 答 が 、 は い 
問題 の 音 と 完全 に 一 致 ? 
いい え 「 超 正解 ] を 表示 


START ボ タン 
得点 に 100 を 加算 


「 正 解 ] を 表示 


ズレ に 応じ て 
得点 に 加算 


「 超 不正 解 ] を 表示 


得点 か ら 100 を 減算 


音 の ズレ が は い 
音 の 1/3 以 内 ? 


音 の ズレ が 
1 オク ター ブ 以 上 ? 


「 不 正解 ] を 表示 


10 問 出題 する 
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_ List5-6 onkan1.c 


#1include <std1ib.h> 
#1nc1ude < く stdio .h> 
#1nc1ude <sys/Dbtos .h> 
#include "sounddef.h" 


tn key_ wait up(1nt) 


int a[10]: 
char str[20]』 


/* 波形 デー タ を 用 意 す る */ 
unsigned char wv[] = { 
0x10, Ox32, Ox54, Ox76, Ox98, Oxba, Oxdc, Oxfe, 
0xef, Oxcd, Oxab, Ox89, Ox67, Ox45, Ox23, 0x01 
}/ 


votd main() { 


1nt 1, ], k, se1ect a, select n, SCOr@z 


/* 音源 を 使用 前 に 初期 化 チャ ン ネ ル 1 を 使用 */ 

Sound init() 

SOunQ Set outpu (SPEAKER ON | SPEAKER VOLUME 4): 
Sound set wave(CHANNEL1 , wV) : 

Sound set vo1ume (CHANNEL1, Oxff) : 


/* ラ 音 の 周波 数 テー ブル を 作成 0 番 と 9 番 は 出力 で き な い 周波 数 */ 
for( = 9 ] = 14080: 1 >= 0 ュー-, ] /= 2) 

a[i] = ]: 
srand(0): 


text screen init(): 


while(1) { 
/* 絶対 音感 */ 
text put string(12, 8, "絶対 音感 ") : 
1 = key wait up(KEY A | KEY START) : 
if (1 & KEY START) 
break: 


SCore = 0: 

SDprtntFf (St 上 ェ , "SCORE る d", score) 
text pu string(7, 0, " 2 
tex pu strino(1, 0, st て ) : 
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導 GIEA(SH 二 00 下山 02、 ま 玉 り )。 
/* a[1]-a[8] の 音 を ラン ダム に 選ん で 鳴ら す */ 
select a rand() も 8 + 1: 
select n = 2048 - 3072000 / (al[select a] * 32): 
sound set pitoch (CHANNEL1, select n): 
sound set channe1 (CHANNEh1 ON) : 


/* この 音 を 憶 えて */ 
text put string(10, 8, "この 音 を 憶え て "): 
key wait up(KEY か ): 


/* さっ き の 音 を 思い 出し て */ 
text put string(8, 8, "さっ き の 音 を 思い 出し て ")』 


/* 音 を X で 操作 きせ て 当て させ る */ 
for(k = 0, ] = rand() & Ox7fF, sound set pitch (CHANNEL1, ]): 
!(k & KEY A): ] &= Ox7fFfF) { 
For(k = 0 k < 1000: k++) 
k = key press Check() : 
EiGK KEY X1) 
]++》 
sound set pitch(CHANNEL1, ]): 
} 
else if(k &g KEY X3) { 
ご ーッ 
sound set pi て ch (CHANNEL1, ]) : 


text put stringd(8, 8, " ") 


/* 入力 音 の 周波 数 を 求め る */ 
k = 3072000 / (32 * (2048 - 3)) : 


/* 正解 判定 
ぴっ た り */ 

ifE(select n ==]}]) 【 
text put string(12, 8, " 超 正 解 ") : 
SCore += 100』 

/* ズレ が 半音 の 1/3 に 満た な けれ ば 正解 */ 

else if(k < aise1ect a] + (a[select _a+1]-a[select _a]) / 12 / 3 
gs& k > a[se1ect a] - (a[se1ect a]-a[se1ect a-1] ) /12/3) ({ 
text put string(13, 8, "正解 ") : 
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if(k > a[select a] ) 
SCOore += 100 * (k - a[select a] ) 
/ ((a[se1ect _a + 1] - a[select a]) / 12 / 3): 
GLge 
SCOre += 100 * (a[select a] - KK) 
/ ((a[select_a] - ase1ect a - 11) / 12 / 3): 
} 
/* ズレ が 1 オク ター プ ブ 以 上 な ら 超 不正 解 */ 


else if(k > a[seleot a] * 2 || k < ase1ect a] / 2) { 
text put string(12, 8, " 超 不正 解 ") : 
Score -= 100: 

1 

に に 1-] 


text put string(12, 8, "不正 解 ") : 


/* 得点 表示 */ 

SDFintfF (str, "SCORE も d",/ ScCore) 
text put string(7, 0, " 時 
text put string(1, 0, Str) 

key wait up(KEY A): 


text pu strinq(8, 8, 『" ") 
sound set channe1 (0) 


/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
nt key wait up(int mask) 【 
お 和紀 ユエ / 天 @E》 


while(!((1 = key wait() ) & masKk) ) 
で ら 選 。 三 (3 


while(key press check() & re): 


エ return re: 


絶対 音感 恩 
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WonderWitch 上 で , ちょ っ と し た ゲー ム や , 何 か お も し ろ い も の を 作れ る こと が わ 
か っ た ら , 今度 は 少し 気合 い を 入れ て 作っ て みる こと に し まし ょ う 。 

ゲー ム と いわ れ て , 筆者 の 頭 に 最初 に 思い 浮か ぶ の は , や は り シ ュー ティ ング ゲー 
ム (以下 , STG) で す 。 毅 い 来る 敵 機 の 攻撃 を か わし な が ら , 敵 機 を 撃つ と いう の が , 
STG の コン セプト で す 。 こ の ゲー ム を WonderWitch で 表現 する に は どう すれ ば いい か , 
考え て み ま し ょ う 。 


画面 構成 か ら の 設計 


まず , 画面 構成 を 設計 し ます 。 オ ー ソ ドッ クス な STG の 画面 構成 を , 自分 の プロ グ 
ラム で 実現 する た め に は , どの よう に すれ ば いい の で し ょ うか ? WonderWitch で 使 
える 画面 表示 シス テム を 念頭 に お いて , 画面 構成 か ら プ ログ ラム の イメ ー ジ を 導き 出 
じ 補 みみ ま し よう 。 

ここ で 作る 8TG は , 縦 に スク ロー ル が 行わ れる タイ プ の も の と し ます 。 縦 スク ロー 
ル STG で は , ゲー ム 性 の 観点 か ら , 縦長 の ゲー ム 画 面 が 好ま し い の で , WonderSwan を 
縦 置き に し て 使用 する こと に し ます (Fig.6-1)。 
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7 癒 自 後 と 敵 機 と 弾 の 設計 


STG で は , 自 機 と 敵 機 と 互い の 弾 が 画面 上 を 飛び 交 い ます 。 こ れ ら の 表示 に は , ス 
プラ イト を 使用 する こと に し まし ょ う 。 ス プラ イト は 128 個 まで 表示 で きま すか ら , か 
な り た くさ ん の も の を 画面 上 に 表示 で きま す 。 最 近 流行 り の STG で は , 画面 上 が 弾 で 
埋め 尽く され た り し ます か ら , た くさ ん 表示 で きる の は いい こと で すね 。 

し か し , 1 つの スプ ライ ト の 大 き さ は 8X8 ド ッ ト な の で , 1 つの スプ ライ ト だ け で 自 
機 や 敵 撲 を 描く と , 画面 上 で は た い へ ん 小さ く な っ て し まい ます 。 そこで, 複数 の ス 
プラ イト を , 互い の 相対 的 な 位置 関係 を 固定 に し て , 並べ て 表示 する こと で , 8X8 ド 
ッ ト よ りゃ 大きな 自 機 や 敵 機 を 表示 する こと に し ます 。 表 示し た 機体 を 画面 上 で 移動 
させ る た め に は , 機体 を 構成 する スプ ライ ト そ れ ぞ れ を , 同じ 量 ず つ 移 動き せれ ば よ 
いこ と に な り ま す (Fig.6-2) 。 


複数 の スプ ライ ト を 使っ て 1 つの キャ ラク タ を 表示 


(0,0) (8.0) 、(⑪6,0) 


9 個 の スプ ライ ト で 1 つの キャ ラク タ を 
表示 する 


左上 の スプ ライ ト の 座標 を 基準 に と る と 
その 右 ど な り の スプ ライ ト は (8,0) 
その 下 の ス プラ イト は (0, 8) 
と いう よう に ずら し た 座標 で 表示 を 行う 


: 和 背景 の 設計 


背景 が 白 の まん まで は 朋 囲 気 が 出 な い の で , 是 が 後方 に 流れ て いく よう な 宇宙 空間 

を 表示 し まし ょ う 。 背景 に 星 の キ ャ ラク タ を 表示 し , スク ロー ル さ せ て や れ ば 表現 で 
きま す 。 そ ん な に 複雑 な 背景 画像 で 表現 する 必要 も な いで し ょ うか ら , 8X8 ド ッ ト の 
星 の パ ター ン を いく つか 用 意 し , それ を 敷き 詰め て や れ ば よい で し ょ う (Hig.6-3) 。 
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パタ ー ン を 敷き 詰め て 宇宙 空間 を 表現 


本 


ぷ - ラン ダム に 硝 景 に 敷き 詰め る と 


宇宙 空間 に な る 


画面 構成 を デザ イン し た ら , 自 機 や 敵 機 な どの 画面 を 構成 する 要素 を , どの よう に 
動か すか 考え ましょ う 。 

自 機 の 移動 と 攻撃 は , ボタ ン の 操作 に よっ て 行い ます 。 Y ボ タン 上 下 左 右 で 自 機 を 上 
下 左右 に 動か し , X3 ボ タン が 押さ れ た ら 自 機 の 少し 上 に 自 弾 を 出現 させ ます 。 
弾 や 敵 機 は . それ ぞ れ あら か じ め 決 め ら れ た 移動 の アル ゴリ ズム に し た が っ て , そ 
の 位置 を 変化 きせ て いき ます 。 敵 機 に よっ て は , 移動 の 途中 の ある タイ ミン グ で , 弾 
を 撃つ 場合 も ある で し ょ う 。 画面 上 部 か ら ま っ すぐ に 降り て くる 敵 機 な ら , 位置 を 求 
め る た びに , その よう に 座標 を 変化 させ て いく こと に な り , 途中 で 弾 を 撃っ た 場合 , 
新た に 敵 弾 を 出現 きせ ます 。 ま た , 弾 や 敵 機 は . ゲー ム で 想定 され て いる 座標 の 範囲 
外 に 出 た 場合 , キャ ラク タ の 存在 自体 を 消し て や る 必要 が あり ます 。 

一 般 的 な STG で は , 敵 が 現れ て は 消え て いく た め , すでに 登場 し て いる 敵 を 動か す 
だ け で な く , 新た に 英機 を 出現 きせ る 必要 が あり ます 。 こ の 敵 の 出現 する 位置 と タイ 
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ミン グ の 列 が 「 敵 の 出現 シー ケン ス 」 デー タ と し て 必要 に な り ま す 。 敵 の 出現 を 制御 
し で て で 。「 こ の クイ ミシン シグ で 。 で この 数 が 出 て きた ら 哉 しく な る な あ 」] と いう 具合 に 、 ゲー 
ム 性 を 高め る こと が で きま す が , と りあ え ず は ラン ダム に 敵 の 出現 が 起こ る と し まし 
よう 。 

STG の 場合 , キャ ラク タ が 移動 する こと に よっ て , 別 の キャ ラク タ と 衝突 する 可能 
性 が 生じ , も し 衝突 し て いた 場合 に は , それ な り の 処理 が 必要 に な り ま す 。 た と えば , 
自 弾 と 敵 機 が , それ ぞ れ 移動 し た 結果 , 衝突 し て いれ ば , 自 弾 を 消し , 敵 機 を 爆発 き 
せな けれ ば な り ま せん 。 画面 を 動か し な が ら ゲ ー ム を 進め て いく た め に は , キャ ラク 
タ の 移動 を 行う た びに 衝突 判定 を 行う 必要 が あり ます 。 

こう し た , 自 機 , 弾 , 敵 機 の 移動 と 平行 し て , 背景 の 宇宙 空間 を スク ロー ル さ せる 
と , STG っ ぽい 画面 の 動き が 得 ら れ ま す 。 

これ ら を まとめ る と , 


① 画 面 上 の 自 機 。 弾 , 敵 機 を 動か す 

② 新 た な 敵 機 の 出現 

③ 衝 突 判 定 ・ 衝 突 処 理 を 行う 

④ 背 景 を スク ロー ル す る 
の 4 つの 処理 を , 繰り 返し 行う こと に な り ま す 。 お も な 処理 が . この ルー プ に な る の で , 
この ルー プ を メイ ン ル ー プ と 呼び ます 。 


画面 上 の キャ ラク タ を 管理 する 


画面 上 の 自 機 , 弾 , 英機 は . それ ぞ れ が 移動 , 衝突 , 消 減 , 出現 を 行い ます 。 こ う 
し た 情報 を 手際 よく 管理 し な いと , ゲー ム の プロ グラ ム は 成立 し ませ ん 。 そこで, 画 
面 上 の こう し た キャ ラク タ を , 構造 体 び 表現 する こと で , 管理 し や すく し ます 。 画面 
上 の キャ ラク タ を 表現 する た め に は , その 表示 座標 , 大 き さ , 表示 に 使っ て いる スプ 
ライ ト , 種類 ( 自 機 , 自 弾 , 敵 弾 , 敵 機 ), 衝突 判定 領域 , 移動 アル ゴリ ズム な どか 必 
要 に な り ま す 。 こ うし た 要素 を も っ た 構造 体 を 作っ て 利用 する こと に し ます 。 

まず , 衝突 判定 領域 と 移動 アル ゴリ ズム に つい て 考え て か ら , 構造 体 を 定義 し て み 
まい 尼 8 の 85 
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7 立 : 向 突 判 定 領域 


衝突 判定 領域 と は , キャ ラク タ 同 士 の 衝突 を 判定 する 際 に 使用 する 知 形 領域 の こと 

で す 。 単純 に 考え を る な ら , スプ ライ ト を 並べ て いる 領域 全体 を 使っ て 衝突 判定 を 行っ 
て も いい の で す が , あま り ゲ ー ム と し て よく あり ませ ん 。 普通 . スプ ライ ト で 表示 す 
る キャ ラク タ に は , 8X8 ド ッ ト す べ て に 点 が 描か れ て いる の で は な く , 透明 に な っ て 
いて 背景 が 透け て 見 える 部 分 が 存在 し ます 。 こ の た め , スプ ライ ト の 領域 同士 が 接触 
し て いて も , 見 た 目 上 で は 当たっ て いな い 場 合 が 多く あり ます 。 見 た 目 上 で は 数 ドッ 
ト 離 れ て いて , か すっ て も いな い の に , 当たっ た こと に され て は 困り ます ね 。 そこで 
ゲー ム 中 に 衝突 判定 を 行う 場合 に は , 実際 に 描か れ て いる 画像 に すっ ぽ ぱり 収まる 知 形 
領域 を 設定 し て , それ を 使っ て 衝突 判定 を 行う の が 定石 と な っ て いま す 。 特 に 最近 の 
STG で は , この 和 領域 を 小さ く と る 傾向 が あり ます (Fig.6-4)。 


スプ ライ ト と 衝突 判定 領域 


スプ ライ ト 全 体 を 当たり 
判定 に と る と , 見 た 目 で 
は 当たっ て いな く て も 当 
た り に な っ て し まう の で , 
キャ ラク タ 占 有 領 域 の 内 
側 で 当たり 判定 を する よ 
うに する 


衝突 判定 領域 


トン ニンニン ンー ンー ニン 


< 六 : 移動 アル ゴリ ズム と 関数 へ の ボ ポインタ 


移動 アル ゴリ ズム を 構造 体 の 要素 と する に は , いく つか の 方 法 が 考え を られ ます 。 た 
と えば , 移動 パタ ー ン の 番号 を 要素 と し , その 番号 に 応じ た 移動 処理 を 行う 方 法 が あ 
り ま す 。 し か し 今回 は , 関数 へ の ポイ ンタ を 利用 し た 手法 で 実装 を 行う こと に し ます 。 
キャ ラク タ の 移動 を 定義 し た 関数 を 準備 し , 構造 体 の 要素 に は この 関数 の ポイ ンタ を 
与え る と いう 方 法 を 使う こと で , プロ グラ ム の 構成 が 単純 化 さ れ , 拡張 性 が 高く な り 
ます 。 関 数 へ の ポイ ンタ は , C 言 語 の 重要 な テク ニッ ク の 1 つ で す が , 使用 する 局面 が 
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限定 され る た め , あま り 使 っ た こと が な い 人 も 多い と 思い ます 。 

関数 へ の ポイ ンタ は , 柔軟 な 関数 呼び 出し を 可能 と する 仕組 み で す 。 変数 が メモ リ 
上 の 位置 を 持つ よう に , 関数 も メモ リ 上 の 位置 を 持っ て お り , 変数 同様 ポイ ンタ で そ 
の 位置 を 知る こと が で きま す 。 こ の 位置 を 記憶 し て お いて , 「func () と いう 名 前 の 関 
数 を 呼び 出す ] と いう 表現 に 代わ っ て 「func p の 場所 に ある 関数 を 呼び 出す | と いう 
表現 で , 関数 の 呼び 出し を 行い ます 。 


void (*Eunc D) (Vo1d) : 


と 宣言 を 行う と , 引数 と 返 値 が voiq 型 で ある 関数 の ポイ ンタ を 記憶 し て お ける ポイ ン 
タ 型 変数 Func p を 使え を る よう に な り ま す 。 こ こ で , 


Yo1d func1 (Vo19d) 
と いう 関数 が あっ た と する と , 
func p = func1: 
と 代入 する こと で , func _p に func1 の 位置 を 記憶 させ る こと が で き , 
(2mG_ お) () / 
に よっ て func1 () を 呼び 出す こと が 可能 に な り ま す 。 詳し く は , 言語 の 解説 書 で 確 
認 し て くだ さい 。 
7 疫 構造 体 OBJ 


これ で すべ て の 要素 を 構造 体 で 表現 する 方 法 が 決ま り ま し た 。 実際 に 構造 体 と し て 
定義 する と , List 6-1 の よう に な り ま す 。 
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/* キャ ラク タ ( 自 機 , 敵 機 。 弾 ) を 表現 する 構造 体 oOBJ */ 
typedef struc OBJ { 
/* (x, y) : 表 示 座 標 。 */ 
unsiqned char XX, Y, 
/* (w。h) : ス プラ イト を w( 幅 ) *h (高き ) 個 並べ て 表現 。 */ 
w, h, 
/* sp _map[l: 並 べ て 使っ て いる スプ ライ ト 番 号 を 記憶 し て お く 。 +*/ 
SD map[SMAP MAX] , 
/* enemy flag: キ ャ ラク タ の 種類 を 分 類 。 
自 機 =1, 自 弾 =2, 敵 弾 =3, 敵 機 =4。 */ 
enemy Fl1ad, 
/* (hit x,hit y): キ ャ ラク タ の 当たり 判定 表現 。 短 形 領域 の 開始 座標 。*/ 
hit x, hit Y\, 
/* (hit w, hit h): キ ャ ラク タ の 当たり 判定 表現 。 
知 形 領域 の 大 き さ 。 +*/ 
hit w, hit h: 
/* move() : キ ャ ラク タ の 移動 パタ ー ン を 表現 する 関数 へ の ポインタ 。 +*/ 
char (*move) (Struct OBJ far *own) 
} OBJ: 


構造 体 ogr の 配列 objs [100] を 使っ て , 画面 上 に 100 個 まで の キャ ラク タ が 存在 で き 
る よう に , 管理 する シス テム を 用 意 し ます 。 

また , WonderWitch 上 で 利用 で きる スプ ライ ト は 128 個 と 決ま っ て いる の で , 何 番 の 
スプ ライ ト を 現在 使用 中 な の か , 管理 し て お か な けれ ば な り ま せん 。 実際 に は , 
objs[] .sp_map[] を すべ て 検索 すれ ば , 使用 し て いる スプ ライ ト を 知る こと は で き 
ます が , この 方 法 で は 時 間 が か か っ て し まい ます 。 そこで , used sprites [128] と 
いう 配列 を 用 意 し て お き , 使用 中 の スプ ライ ト 番 号 に 対応 し た 位置 の 要素 を 1 に し て お 
く こ と に すれ ば , 使用 し て いる スプ ライ ト を 調べ る こと が 容易 に な り ま す 。 

こう し て 用 意 し た シス テム を 用 いて STG を 作れ ば , プロ グラ ミン グ 作 業 も は か どり 
ます 。 し っ か り し た プロ グラ ム を 作る 場合 に は , 設計 に 十分 な 時 間 を 割 い て 損 は あり 
ませ ん 。 
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夫 $ 実装 し て みる 


ここ まで で 考え て きた 設計 を 生か し て 作っ て みた 8STG が stg.c (List 6-.2) に な り ま す 。 
キャ ラク タ の 画像 デー タ を bmpcnv.exe で 変換 し た ヘッ ダフ ァイル を 作成 し て か ら , コ 
ジイ 2 で で 江 き ゆい 。 

本 章 で 述べ て きた 設計 コン セプト と , プロ グラ ム 中 の コメ ント を 見 て も ら え ば , 処 
理 の 理解 は 容易 か と 思い ます が , キャ ラク タ を 生成 する シス テム に つい て , 補足 し て 
お きま び 。 


K パ create_obj( ) 


敵 が 出現 し た り , 弾 が 発射 され た り し て , 新た に キャ ラク タ が 出現 する と き に 呼ば 
れる 関数 が create ob}() で す 。 こ の 関数 内 で は , base obj[] の 内 容 に 基づい て , 
各種 キャ ラク タ を 生成 し て いま す 。 キャ ラク タ を 生成 する の に , キャ ラク タ の 大 き さ 
や 画像 デー タ を , 構造 体 の 内 容 と し て 書き 込ま な けれ ば な り ま せん の で , その ひな 型 
に な る 情報 を base obj[] に 用 意 し て ある の で す 。 

ob}js [] と base ob} [] は , どちら も 構造 体 oBr の 配列 で す が , objs [] は 実際 の キ 
ャ ラク タ を 表現 し て いて , base _ob}[] は キャ ラク タ の ひな 型 を 表現 し て いる と いう 
違い が あり ます 。 

ゲー ム 中 に は 同じ 種類 の キャ ラク タ ( 敵 や 弾 ) が 出 て くる の で , そう し た キャ ラク 
タ の 種類 だ け ひ な 型 を 準備 し て いる の で す 。 ひ な 型 と な る base ob} [] の 各 要 素 の 各 
メン バ に , キャ ラク タ の 種類 ご と の 値 を 設定 し て お け ば , objs [] に キャ ラク タ を 定義 
する と き は , base ob}j[」 を コビー する だ け で すみ ます 。 こ うす れ ば , 簡単 に た くさ 
ん の 敵 機 を 定義 で きる よう に な り ま すね 。 書式 の 決ま っ た 書類 を 作成 する と き , 書類 
を 作る た びに , 空欄 に な っ て いる 用 紙 (テン プレ ー ト ) を コピ ー し て 書き 込む の と 同 
egc 

また , base ob} [] で は , 2 つの メン バ を objs [ ] と は 異な っ た 意味 で 使用 し て いま す 。 

1 つ 目 は , objs[] で は 表示 座標 と し て いる メン バ x を , 表示 に 使用 する パレ ッ ト の 値 
の 表現 に 使っ て いる こと で す 。 キ ャ ラク タ の ひな 型 で は , 表示 座標 は 必要 あり ませ ん 
の で , この よう な 使い 方 を し て いま す 。 

2 つ 目 は , objs[] で は , 使っ て いる スプ ライ ト 番 号 を 保存 し て いる メン バ 
sp _map[] を , 表示 に 使う 画像 の キャ ラク タテ ー ブ ル 番号 の 配列 と し て 使っ て いる こ 
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stg.c の 処理 の 流れ 


各種 初期 設定 
・ ス プラ イト の 使用 準備 

・ キ ャ ラク タ 管 理 テ ー ブ ル の 初期 化 
・ 画 像 、 パ レッ ト の 登録 


set_base_obi() で 登場 キャ ラク タ の 定義 を 行う 


create_obj() で 自 機 を 作成 
背景 に 宇宙 空間 を 作成 


move_obj() で 全 キ ャ ラク タ を 移動 
弾 を 撃っ た 場合 は 、 キ ャ ラク タ ( 弾 ) を 新規 作成 


自 機 の 移動 (操作 ) で 
START ボ タン が 押さ れ た か ? 


new_obi0 で 新しい キャ ラク タ ( 英 ) を 出現 させ る 


obi_ht() で 当たり 判定 
弾 に 当たっ た キャ ラク タ は 爆発 に 置き 換え る 


自 機 が 弾 に 当たっ た か ? 


update_obi() で キャ ラク タ の 表示 を 更新 


nm 
ーー 


は い メイ ン ル ー プ 


終了 
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と で す 。 こ ちら も キャ ラク タ の ひな 型 で は 必要 の 無い メン バ で す の で , 代用 し て いま 
す 。 

create ob]} ( ) 内 で は , 
ます 。 


stg.bin の 実行 画面 


ー 
トー 


の 2 つの 情報 を 元 に sprite set char () が 行わ れ て い 


List6-2 stg.c 


/* 
ジー ティ ング ゲー ム 
縦 連 き 画面 で 縦 シ ュー。 
移動 は + ボ タン , ショ ッ ト は x3 ボ タン 
START ボ タン で 絹 制 終了 する 。 
ポ / 
#1include <sys/bios .h> 
#1nc1ude <std11ib.h> 
/* abs() が 無い の で , つけ て お く */ 
unsigned abs(int no) { 
return ( (no<0) ? (-no) : (no) ) : 


/* 
#1nc1ude "bg.h" 
#1inc1ude "own.h" 


更 用 する 画像 を 変換 し た も の */ 


実装 し て みる 


#inc1ude "shot .h" 
#1inc1ude "enemy1 .h" 
#inc1ude "enemy2 .h" 
#inc1ude "enemy3.h" 
#inc1ude "deth.h" 


/* スプ ライ ト で 表示 する キャ ラク タ に 最大 いく つの スプ ライ ト を 割り 当て る か */ 


#define SMAP MAX 16 


/* キャ ラク タ ( 自 機 , 敵 機 , 自 弾 , 敵 弾 ) を 表現 する 構造 体 oOBr 
(x,) : 表 示 座 標 。 
(w,h) : ス プラ イト を w( 幅 ) X h( 高 さ ) 個 並べ て 表現 。 
sp _map[] : 並 べ て 使っ て いる スプ ライ ト 番 号 を 記憶 し て お く 。 


enemy flag: キ ャ ラク タ の 種類 を 分 類 。 自 機 =1, 自 弾 =2, 敵 弾 =3, 敵 機 =4。 


(hit x,hit y): キ ャ ラク タ の 当たり 判定 表現 。 知 形 領域 の 開始 座標 。 
(hit w,hit h): キ ャ ラク タ の 当たり 判定 表現 。 知 形 領 域 の 大 き さ 。 
move () : キ ャ ラク タ の 移動 パタ ー ン を 表現 する 関数 へ の ボイン タ 。 
typedef struct OBJ { 
unsiqgned char x, Y,/ W, h, SD map[SMAP MAX] , enemy fF1ag, 
hit x, hit y, hit w, hit _h: 
char (*move) (Struct OBJ far *own) : 
] OBJ: 


/* 構造 体 Br の メン バ move () の 実体 */ 
char own _move(OBJ far メ ): 

char 1iner move (OBJ far *): 
char enemy move1 (OBJ far *): 
char enemy_move2 (OBJ far *): 
char enemy_move3(OBJ far *): 
char enemy move4 (OBJ far *): 
char deth move (OBJ far *): 


/* 各 キ ャ ラク タ を 定義 */ 


vod se base ob] () 


/* 新規 に 敵 機 を 出現 させ る */ 


char new ob] () 


/* ゲー ム 中 か ら 消 えた キャ ラク タ を 消す */ 
char delete ob] (char) 


/* ゲー ム 中 の 全 キ ャ ラク タ を 移動 させ る */ 


char move ob] () 


/* 当たり 判定 */ 
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char ob] hit(): 


/* 現在 保持 し て いる 全 キ ャ ラク タ の 情報 に 基づい て 画面 を 更新 */ 
char update ob] () : 


/* キャ ラク タ を 生成 する */ 


char oreate ob] (char, unSigned char, unSigned char) 


/* ゲー ム 中 に 存在 する キャ ラク タ を 管理 する テー ブル +*/ 
OBJ ob}js[100]: 


/* 各 キ ャ ラク タ の ひな 型 (定義 ) を 保存 する テー ブル */ 
OBJ base ob] [11] : 


/* 使用 中 の スプ ライ ト を 監視 */ 


char used sprites[128] 


* 背景 (宇宙 ) の スク ロー ル 量 */ 
unsigned char SCr] x, SCr] y: 


void main() { 
mn も 』 さ 。 7 


statio unsigned short cmapz 
Srand(1) 
disp1ay contro1 (DCM SCR1 | DCM SPR) : 


/* 縦 向 き の 使用 を イン ジ ケ ー タ 表示 */ 
1cd se segments (LCDSEG_VERTTCAL ) 


/* スプ ライ ト を 128 個 使用 する 準備 。 

すべ て 画面 外 に 置い て お き , 使用 状況 監 入 テー プル を 0 で クリ ア 。+*/ 
Sprite se ranqge(0, 128): 
FoOE'( エ 0z も く 128: 4+) 1 

Sprite se 1ocation(1, 225, 145): 

used sprites[1] = 0: 


/* キャ ラク タ 管 理 テ ー ブ ル を 初期 化 */ 
下 GE (1 三 0 が エ く LT007 ユエ 二 キ ))【 
ob]S [1] .x = ob]S [1] .yY = ob]js[i] .w = ob]s[1] .h = ob]js [1i] .enemy_E1ag 
= ob]s[i1] .hit x = ob] う s[i] .hit y 
= objs[i] .hit w = objs[i].hit h= 0z 
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For(] = 0: ] < SMAP MAX: ]++) 
ob]s [1] .sp map[]] = 0: 
ob]s [1] .move = NULL: 


/* 画像 を 登録 */ 

Font set colordata(0, 4, bmp bg) 

font se co1ordata(4, 9, Dmp_own) 
Font se co1ordata(13, 2, bmp_ sho) 
font se co1ordata(15, 9, bmp enemy1) 
Font set colordata(24, 9, bmp enemy2) 
Font set co1ordata(33, 9, bmp_enemy3) : 
Font set colordata(42, 4, bmp _deth) > 
/* パレ ッ ト を 登録 */ 
palette set co1or(1, 0x0246): 
palette se co1or(12, 0x7530) 
palette set co1or(13, 0x0037) 


/* 各 キ ャ ラク タ を 定義 */ 
set base ob] () 


/* 自 機 を 生成 */ 
create_ ob] (0, 60, 60): 


/* 背景 に 宇宙 空間 を 作成 ょ / 
for(1 = 0 1 < 32 オォ +) 
for(] = 0 ] < 32: ]++) { 
cmap = ((abs(rand()) ほ 4) << 14) | (Ox200): 
if(abs(rand()) も 4 == 0) 
cmap |= abs(rand()) も 4: 
screen set char(SCREEN1, 1, ], 1, 1, &omap): 


/* メイ ン ル ー プ */ 

For(SCF1 x = 0, sor1 y = 30, ] = 0: 1: sor1 ヌメ ++) { 
/* waut */ 
for(1 = 0: 1 < 5000: ュ ++): 


/* 全 キ ャ ラク タ 移 動 。sTART ボ タン が 押さ れ た ら 終 了 */ 
if (move_ob]} () ) 


breakr 


/* 新た な 敵 機 登場 ょ / 


new_ ob] () 
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/* 当たり 判定 。 自 機 が 当たっ た ら , 少し 待っ て 終了 */ 
if(ob] hit() ) 
] = 50: 


/* 画面 を 更新 */ 
update ob] () 


/* 背景 スク ロー ル +*/ 
Screen Set scro]1 (SCREEN1 , Sor1 x, SCr1 y): 


/* 自 機 が 当たっ た ら , 少し 待っ て 終了 */ 


1f(]) 
叶 
1f(] == 1) 
break: 


当たり 判定 */ 


char ob] hit() { 


DE は の PX Ve も よ /。 62y 下 G 主 40 


/* 自 機 と 敵 弾 , 敵 機 の 当たり 判定 */ 
for(] = 1 ] < 100: ]++) 
if((ob]s[]] .enemy Elag == 3) || (ob]js[]].enemy flag == 4)) { 
x ビー 0』 
t1 = objs[]] .x + objs[]] .hit _x: 
2 ob]js [0] .x + objs[0] .hit x: 


II 


/* x 座 標 に 関し て 自 機 の 当たり 判定 始点 が 
敵 の 当たり 判定 範囲 に 入っ て いる か  +*/ 
if((t 上 1 <= 2) && (上 1 + ob]s[]] -hit w > 上 2) ) 
% 三 l ぁ 


/* も し く は , 自 機 の 当たり 判定 終点 が , 
敵 の 当たり 判定 範囲 に 入っ て いる か +/ 
1f((t1 <= 2 + ob]s[0] .ht ) 
gg (上 1 + objs[]] -hit w > 2 + obJs[0] .hit_w)) 


メー 1』 
/* も し く は , 敵 の 当たり 判定 始点 が , 自 機 の 当たり 判定 範囲 


に 入っ て いれ ば (上 記 2 人 条件 で は 自 機 より 敵 が 小さ く 敵 が 
自 機 の 範囲 に すっ ぱり 収まっ た 場合 が 検出 不可 能 ) 4 
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tf((t 上 1 >= t2) gs (t1 く t2 + objs[0] .hit Ww) ) 


メー 1』 


/* 3 条件 いずれ か に 当て は まれ ば x 座 標 に 関し て 当たっ て いる ょ */ 
CX) 


Continueg 


/* y 座 標 に 関し て も , 同様 に みる */ 

(0 が 

t1 = ob]Js[]] .y + objs[]] -hit Y: 

t2 = objs[0] .y + objs[0].hit y: 

1f((t1 <= t2) gss (て 1 + objs[]].hit h > t2) ) 
9。 王 由 ? 

if ( (t1 <= 2 + ob]jS[0] .hit 1) 
sg& (t1 + ob]Js[〕}】.hit h > t2 + ob]s[0] .hit h) ) 
Yー 1: 

if ( (上 1 >= 2) && (上 1 < 2 + objs[0] .hit h) ) 
Y ミユ 』 

1f(!Y) 
Continuez 


/* 自 機 を 消し て , 爆発 キャ ラ を 作成 */ 

x = objs[0] .x + (objs[0].w - 2) * 4: 
y = objs[0] .y + (ob]Js[0].h - 2) * 4: 
delete ob] (0) 

create ob] (10, x, ) 


/* 英機 と 当たっ た ら , 敵 機 も 爆発 キャ ラ に 置き 換え る */ 
if(ob]s []] .enemy flag == 4) { 
x = ob]s[]j].x + (obJs[]].w - 2) * 4 
y = ob]〕s[]] .Y + (obJs[]] .h - 2) * 4: 
de1ete ob} (}) : 
create ob] (10, x, Y): 
} 
は 上 ほら 
delete ob]} (]) 


/* 自 機 が や られ た こと を 通知 する 準備 */ 
ret = 1: 


breakz 


/* 自 弾 と 敵 機 の 当たり 判定 */ 
EoP(1 ー 4』 すく 100z #+ キ ) 1 
if (ob]s [1] .enemy Flag != 2) 
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Continuez 
for(] = 1: ] < く 100: ]++) 
if (op]s[]] .enemy Flag == 4) { 
/* 座標 に 関す る 当たり 判定 条件 は , 前 出 の 通り */ 


メー 0: 
t1 = ob}js[]] .x + ob]s[]] .hit xz 
t2 = objs[1] .x + objs[i] .hit x: 


if ( (t1 <= t2) && (上 1 + ob]js[]] .hit w > 2) ) 
X ビデ 17 
1f ( (上 1 <= t2 + ob]s[1] .hit w) 
gg (t1 + ob]js[]] .hit w > 2 + ob]s [1] .hit w)) 


2 " 時 ぁ 

1f( (上 1 >= 2) &g (t1 < 2 + ob]js[1] .hit W) ) 
X ビー 1: 

if (!X) 
Continu ら ez 

2ー0O5 


t1 = ob]s[]] .y + ob]s[]j] .hit y: 

t2 = ob]s [1i] .Y + ob]js [ii] .hit yj』 

1f((t1 <= 2) gg (1 + ob]js[]] -hit h > t2) ) 
y テ 1 ュ 1: 

if((t 上 1 <= 2 + ob]s[i] .hit 1) 
s& (t1 + ob]js[]] .hit h > t2 + ob]s [1] .hit h) ) 
Y = 1』 

E( (上 1 >= 上 2) る & る (1 く モ 2 + eoB3S ミ ] hiE hi) ) 
Y = 1: 

1f(!Y) 
continuez 


/* 自 弾 を 消し て , 敵 機 を 爆発 に 置き 換え る */ 
delete ob] (1) 

x = ob]s[]] .x + (ob]s[]] .w - 2) * 4: 
y = ob〕s[j].y + (ob]js[]].h - 2) * 4』 
de1ete ob〕} (〕) 

create ob] (10, x, yY)z 

breakz: 


reEurn 、 re: 


/* 画面 を 更新 */ 
char update ob] () { 
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nt i。 ]: 


for(] = 0z }] < 100: ]++) 
/* キャ ラク タ の 幅 が 0 で な いも の は , キャ ラク タ が 存在 する と 考え る */ 
tfF(ob]s []] .w) 
/* 構造 体 の 情報 に 基づき , スプ ライ ト を ある べき 場所 に 表示 する +*/ 
for(i = 0 エ < ob]s[]]1 .W * op]s[]] .h: ユ ++) 
Sprite se 1ocation (ob]s[]] .Sp map[i], 
ob]s[]].x + (1 $ ob}js[j] -w) * 8, 


ob]sf]1.Y + (1 / ob]js[]] .w) * 8): 
return 0: 


/* 新た な 英機 登場 */ 
char new ob}() 【 
中 か も 。 3 が 


/* ラン ダム な タイ ミン グ で ラン ダム な 種類 の 敵 が ラン ダム な 場所 に 登場 */ 
if (abs (rand() ) $ 30 == 0) { 
1 = 4 + abs(rand()) 5 6: 


create ob] (1, 224, abs(rand()) き 256) : 


return 0: 


/* ゲー ム 中 か ら 消 えた キャ ラク タ を 消す */ 
char delete ob] (char no) { 
HmE 


/* 消す キャ ラク タ の 表示 に 使わ れ て いた スプ ライ ト を 
表示 され な い 位 置 に 移動 し スプ ライ ト の 使用 状態 を 0 で クリ ア す る +*/ 
for(] = 0 ] < ob]s [no] .h * objs [no] .wz ]++) [{ 
Sprite se 1ocation (ob]s [no] . Sp_map[]], 225, 145) 
used_ sprites [ob}js [no] .sp_map[]]] = 0: 


/* 消す キャ ラク タ の 情報 を 保持 し て いた objs [] 内 の 領域 を シク リア する */ 


ob]s [no] .x = ob]s[no] .y = ob]s [no] .w = ob]s [no] .h 


= ob]s [no] .enemy flag = ob]js[no] .hit x = ob]js[no] .hit y 


= ob]s [no] .hit w = objs[no].hit h= 0: 
For(] = 0: ] < SMAP MAX: ]++) 

ob]s [no] .Sp_map[]] = 0: 
ob]s [no] .move = NULLz 
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return 0: 


/* ゲー ム 中 の 全 キ ャ ラク タ を 移動 させ る */ 
char move ob}() { 
char ret = 0: 


Pot ud 時: 


For(1 = 0: 1 < 100: i++) 
/* キャ ラク タ の 幅 が 0 で な いも の は , キャ ラク タ が 存在 する と 考え る */ 
if (ob}s [1] .w) { 
/* move () を 呼び 出し , 構造 体内 部 の 座標 値 (x, y) を 移動 先 に 変更 
START ボ タン が 押さ れ た 場合 の み , 1 が 返っ て くる の を 取得 */ 
ret +ー (*(oDb]S [1] .move) ) (gob] Ss [1] ) : 


/* 移動 させ た 結果 , 退場 し て いっ た キャ ラク タ は 消す */ 
if(((ob]s [1] .x > 224) gg (ob]s[i] .x < 228) ) 
1 ((ob]s [1] .y > 188) gg (ob]s [1] .y く 222) ) ) 
delete op] (1) : 


と て Gurn re 


/* キャ ラク タ を 生成 する */ 
char create ob] (char type, unsigned char x, unSigned char Y) { 
tnt 1i, ], k, tmp map[SMAP MAX] : 


/* キャ ラク タ 管 理 テ チー ブル objs [] に 空き が な いと 生成 で き な い +*/ 
Eor( = 0: ( く 100) sg ob]S [1] .Wz ユエ ++) : 
iF(1 >= 100) 


return 1 


/* 生成 し た い キ ャ ラク タ の 表示 に 
必要 な 数 の スプ ライ ト が な いと 生成 で き な い */ 

for(〕 = 0, k = 0: ) < base ob] [type] .w * base obD] [type] .h: 〕++, K++) { 

for(: (Kk < 128) && used Sprites [k] : k++) : 

if(k >= 128) 

return 2: 

/* tmp_map[] に 使う 予定 の スプ ライ ト の 番号 を 記録 し て お く */ 

tmp_map[]] = k: 
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/* 指定 の キャ ラク タ に 設定 */ 
ob]s [1] .w = base ob] [type] .wz 
ob]s[i] .h = base ob] [type] .h: 


ob]s [1] .hit base ob] 〔type] .hit x: 


ob]s [1] .hit y base ob] [type] .hit yz 
ob]s [1] .hit w = base ob〕 [type] .hit_wz 
ob]s[i] .hit h = base ob] [type] .hit h: 


ob]s [1] .enemy Flag = base_ ob] [type] .enemy F1aqgz 


ob]S [1] .move = Dase op] [type] .move: 


/* tmp_map[] の スプ ライ ト を 実際 に 使う */ 

for(] = 0 ] < objs[i].h * ob]s [1i] .-wj ]++) 【 
/* objs 【[] に 使用 を 記録 */ 
ob]s [1] .Sp map[]] = tmp _map[]]: 


/* 実際 に 表示 に 使う */ 

Sprite se char(tmp map[]], (base ob] {type] .x * 0x200) 
| (base_ob] [type] .sp_map[]] ) ) 

Sprite set 1ocation(tmp _map[]], 
x+ () $ obJs[i].w) * 8,y+ (] / objs[i].w) * 8): 


/* 使用 し た スプ ライ ト は 使用 中 に 設定 ょ / 

used sprites [tmp map[]]] = 1: 
} 
/* sp map[] は , キャ ラク タ 番 号 を 格納 し た 部 分 以外 を , 

汎用 的 な 変数 (move () 用 ) に 使う の で , そこ も コピ ー */ 
For(: 〕] < SMAP MAX: ]++) 

ob]s [1] .Sp_map[}] = base_ ob] [type] .Sp_map[]] 


/* 汎用 的 な 変数 (move () 用 ) に 使う 部 分 の 値 を 動 的 に 生成 */ 
Switch(type) { 
CaSe 3: 
iE(ob]s[0] .x < 交 ) 


* (char *) gob]S [1] . Sp _map[15] = -1: 
if(ob]s[0] .y く 層 ) 
* (char *) gob]〕s [1] .Sp map[14] = -1: 
Dreakz 
CaSe 7: 


ob]s [1] .sp map[15] = ob]js Ti] .x: 
if(ob]s[0] -y < ゞ ) 
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* (char *) gob]S [1] .Sp map[14] = -1: 
breakz 
Case 10: 


* (char *) gob]S [1] .SDp_map [15] Ob SI エモ] XX よ SG メ :> 


l 


* (char *) gob]s [1] .SD_map[14] ob]SEE] :Y キ SGr1 Y: 


break: 


return 0: 


/* OBJ の move () の 実体 */ 


/* 自 機 の 移動 */ 

char own move (OBJ far *own) { 
static int shot count = 0: 
unS1qned short 1/ ]z 


1 = key DresS ChecK() 


/* START ボ タン が 押さ れ た ら , 1 を 返す */ 
if(1 cs KEY START) 
return 1: 


/* 自 機 が 左右 に 動く と , 背景 , 各 キ ャ ラク タ も スク ロー ル す る */ 
1f((1 & KEY Y1) gg (own->y > 1)) { 
Own->Y ーー 2 
SC ヤー ニ : 
for(] = 0z うく 100: 3+) 
if((gob〕s []] != own) && objs[]]】 .w) 
ob] Ss []] . ツ ++』 
} 
e1se ifE((1 & KEY Y3) &s& (own->y < く 144 - own->h * 8)) { 
Own->Y キー 2』 
SCF] Y++ ァ 
for(] = 0 ] < 100 ]++) 
if((sob]s[]] != own) && oDb}s []] .Ww) 
【(e) 6 に 員 史 財 邊 Aodeo 


/* 自 機 を 上 下 に 動か す */ 
if((1 & KEY Y2) gg (own->x く 224 - own->w * 8) ) { 
Ownー>x オー 2: 
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el1se 1f((1 & KEY Y4) gg (own->x > 1)) 【{ 
Own->X ーー ク z 


/* 自 弾 を 出す 。1 発 撃つ と , 一 定時 間 は 撃て な くす る +*/ 
if(shot count++ > 10 gg 1 & KEY X3) { 
create ob](1, objs{[0].x + 24, ob]js[0].y + 8): 
shot count = 0 


return 0: 


/* 一 定 の 方 向 に まっ すぐ 進む */ 

char 1iner move (OBJ far *own) { 
own->x +ー *(cChar far *)&(own->SP_map[15] ) 
Own->y + ニ *(Char Far *)&(Own->SD_map[14]) 
return 0: 


/* 左右 に 揺 れ な が ら , 流れ て 落ち て くる */ 
char enemy _move1 (OBJ far *own) { 
Own->X ー デ 2』 
Own->y += *(Char far *)&(Own->SD map[15]) * 2: 
tf (own->Sp_map[13] > own->sp_map[14]) { 
* (char far *)&(Own->SD_map[15] ) *= ー-1: 
own->SPp_map[13] = 0: 
} 
(own->Sp_map [13] ) ++: 
return 0: 


/* まっ すぐ 流れ て 落ち て き て , 弾 を 撃っ て , 反転 し て 帰っ て いく */ 
char enemy move2 (OBJ far *own) { 
Own->X キー *(Char far *)&(Own->SDp_map [15] ) 
if(own->x く 100 && own->sDp_map[14]) { 
* (char far *)&(Own->SD_map [15] ) *= ー1: 
own->Sp_map[14] = 0: 
create ob] (3, own->x, Own->y + 8): 
} 


return 0: 
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/* 流れ て 落ち て き な が ら , ぶつ か ら な い 程 度 に 自 機 に 査 っ て くる */ 


char enemy move3(OBJ fFar *own) { 


Ownー> ーー 2』 
own->y += ((int) ob]s [0] .y - (int) (own->y) ) / 30: 
return 0: 


char enemy move4 (OBJ far *own) { 
if(* (char far *)g(Own->SD_map[13] ) == 40) 
Own->X ニ Own->SD_map[15] + 1 
else { 
Own->x 三 Own->SD map [15] 
+ (*(char far *)&(Own->SDP_map[13] ) ) 
* (((1nt)*(char far *)g(own->Sp map[13])) - 40) / 4: 
OWn->Y サー *(Char far *) を (Own->Sp _map[14] ) 
(* (char far *)&(own->Sp_map [13] ) ) ++: 
if(*(char Far *)&(Oown->Sp_map[13] ) == 20) 
create ob] (2, own->x, Own->y + 8): 
) 


returrn 0: 


/* 点滅 し な が ら 流 れ て , 一 定時 間 後に 消滅 */ 
char deth move (OBJ far *own) { 
党 E 邊 が 
own->SD_map[15] -= 1』 
if((own->sp_map[13]>>1) 計 2) { 
own->x ー 230』 
own->y = 230: 
} 


else { 
Own->x 三 Own->SD map[15] - scr1 xz 
Own->Y = Own->SD_map[14] - SCr1 


} 
(own->Sp_map [13] ) ++: 


1f (own->Sp_map[13] == 20) 
GEx( エ 07 エエ で 1007 せま キ ) 
if (sob]s [1] == own) { 
de1ete_ ob} (1) 
break: 
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} 


return 0: 


/* 各 キ ャ ラク タ を 定義 */ 


Void se base ob] () 


unsigned char 1, 


/* クリ ア */ 


for(1i = 0: 


{ 
引 2 


0 


DD 


jpase_ ob] [1 は] .x = base_ ob] [1] .y = 0: 
for(] = 0: ] < SMAP MAX: ]++) 
base_ ob] [1] .Sp_map[]] = 0: 


/* 定義 を 表現 する base ob}[] で は , ob}s [] と 異な っ た 意味 で 使わ れ て いる メン バ 
が ある 。1 つ は x で , base ob} [] で は パレ ッ ト 番 号 を 表現 し て いる 。 も う 1 つ は 
sp _map[] で , base ob] [] で は キャ ラク タテ ー プ ブル 番号 を 表現 し て いる 。 


/* 自 機 */ 

base_ ob] [0] 
base ob〕 [0] 
base ob}[0] 
base ob} [0] 
base ob} [0 
base_ ob] [0 
base_ ob} [0 
base_ob} [0 
for(1 = 0: 


< 


l 


-W 
・h = 


sh も | 
員 : 抽 中橋 | 
] 。h ま も 
ls 届 ま も") 
] .enemy flag = 1z 
1 < base ob} [0] .h * base_ ob] [0] .Wi 1++) 


2 ー 6 
Own_W1i 
own he 
2c: 三 、 直 / 
y = 8: 
w = 17 
h = 8 


dth:』 
1gh』 


7 


base_ ob] [0] .SD map[i1] = ニュ オ 4: 


base_ ob} [0 


/* 自 弾 ( ま 
base ob}[ 
base_ ob] [ 
base ob] [ 


base ob]}[ 


base ob]} 
base_ ob] [ 
base ob] 
base_ ob} [ 
base ob]} 


5 
1 
1 
1 
1 
base ob] [1] 
1 
中 
中 
1 
1 
1 


base _ ob} [ 
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-SD_map [15] 


W 


・mOVe 王 Own _mOV@z 
すぐ 上 に 飛ぶ ) */ 
芝山 3 一 387 

].w = 1: 

].h = 1: 

-・hit x = 0z 
SE SW し 8 
-hit w= 8: 
sh3ELD 2 

] -enemy flag = 2』 
-SP map[0] = 13: 


] .move = 1iner moVvez 


3 が 
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3/ 


base_ob} [1] .sp_map[14] = 0: 


/* 敵 弾 1( ま っ すぐ 下 に 飛ぶ ) */ 
base ob][2].x = 13 - 8: 
base ob][21.w = 1: 


base ob] 


base ob] [2] .hit 2 
>-Dtt y ビー 2: 
base_oDb] ・hit w 4 


2 

2 

base ob] [2 

2 
base_ob][2].hit h= 4: 

2 

2 

2 


jbase oD] ・enemy fl1ag = 3: 


jpase obD〕 ・SP_map[0] = 14: 


base ob] [2] .move = 11ner movez 
*(char *)&gbase ob] [2] .Sp map[15] = 


base ob}[2] .sp map[14] = 0: 


/* 敵 弾 2( 自 機 方 向 に 飛ぶ ) */ 
base_ ob}][3】.x = 13 - 8z 
pase ob][3].w = 1: 

base_ ob] [3].h = 1: 

base_ ob][3] .hit x = 2: 
base_ob][3].hit y = 2: 

base ob][3] .hit w = 4: 

base ob}](3].hit h = 4: 

base ob] [3] .enemy Fl1ag = 3: 
jpase ob] [3] .sp map[0] = 14: 
base_ ob] [3] .move = 1iner movez 


Il 


* (char *) gbase_ ob} [3] .Sp_map[151 
*(char *)&base_ ob} [3] .sp map[14] 


l 


/* 英機 1 (左右 に 揺れ な が ら 落 ち て くる ) +*/ 
base ob][4].x = 12 - 8: 

base_ ob][4] .w = enemy1 width: 
base_ ob}[4] .h = enemy1 heigh: 
base ob][4].hit x = 1: 

base ob][4].hit y= 1: 

base ob][4].hit w = 15: 

base_ ob][4].hit h = 22: 

base ob][4] .enemy Flag = 4: 


ー ク 2 


for(i = 0: ュ < base ob][4] .h * base ob] [4] .Ww: ユ ++) 


base ob〕[4] .Sp_map[i] = ニュ + 15: 
base ob] [4] .move = enemy moVve1: 
base ob][4] .Sp map[15] = 2: 
base ob] [4] .sp map[14] = 10: 
base ob] [4] . sp _map[13] 0 
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/* 敵 機 2 ( 弾 撃っ て 反転 ) */ 
base ob][5].x = 12 - 8: 
base_ ob} [5] .w 


enemy1 width: 
base_ ob] [5] .h = enemy1 heigh: 
base. G5 す [5] hit x デー 1: 

base ob][5] .hit y= 1: 

base ob][5].hit w = 15: 

base ob] [5] .hit h = 22: 

base ob] [5] .enemy Elag = 4 ヵ 


for(i = 0: i < base ob][5] .h * base ob] [5] -wz 1++) 


base ob] [5] .Sp map[i] = ュ エキ 15: 
base ob] [5] .move = enemy move2: 
* (char *)gbase ob] [5] .SpD map[15] = -2: 
base ob}] [5] .sp_map[14] = 1: 


/* 敵 機 3( 自 機 に 寄っ て くる ) */ 

jpase_ ob][6].x = 12 - 8: 

base ob} [6] .w 

base ob} [6] .h enemy2_ height: 

base ob][6].hit x = Oz 

base_ ob][6].hit y= 0: 

base_ ob} [6] .hit w = 24: 

base ob][6].hit h = 24: 

base_ob] [6].enemy flag = 4: 

for(i = 0 i < base ob} [6] .h * base ob} [6] 
jbase ob]〕[6] .sp map[1】 = ュ + ォ 24: 

base_ ob] [6] .move = enemy_move3: 


遇 


enemy2 width: 


/* 英機 4 ( 逆 放 物 線 ) */ 

base_ ob][7].x = 12 - 8: 

base ob] [7] .w = enemy2_ width: 

base_ ob} [7] .h = enemy2 heigh: 

base_ob][7].hit x = 0: 

base ob][7].hit y= 0O: 

base ob][7] .hit _w = 24: 

base_ob][7].hit h = 24: 

base_ ob] [7] .enemy flag = 4: 

for( = 0: 1 < base ob][7] .h * base ob][7] 
base_ob][7] .SPp_map[i] = ニュ オ 24: 


base ob] [7] .move = enemy move4 ヶ 
* (char *) sjbase ob] [7] .SD_map[14] = 1: 
base_ ob] {7] .sp_map[13] = 0: 


/* 英機 5( ま っ すぐ 落ち て くる ) */ 
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・Wg 


・Wg 


ュ ++) 


ュ ++) 


base ob][8] .x = 12 - 8: 

jbase ob][8] .w = enemy3 width: 

base_ ob] [8] .h = enemy3 height: 

pase ob][8].hit x = 0: 

base ob][8].hi ト yー0: 

base_ob}][8] .hit w = 32: 

base_ ob][8].hit h = 16: 

base ob}j[8】.enemy Flag = 4: 

For( =0,: 1 く < Dase op}[8].h * base_ ob] [8] .wz 1++) 
base_ob}][8] .S5D_ map[1] = ュ オ 33: 

Dase ob] [8] .move = 1iner movez 


*(char *) gbase ob] [8] .Sp_ map[15] = -3: 
*(char *) gbase ob] [8] .sp_map[14] 


】 
で ・ 


/* 敵 機 6( ま っ すぐ 高速 に 落ち て くる ) */ 

base ob] [9] .x 12 ~- 8 

base_ ob] [9] .w = enemy3 width: 

base_ob} [9] .h 

base_ ob][9].hit x = 0: 

base _ ob][9].hit y = 0 

base_ob][9] .hit w = 32: 

base ob][9].hit h = 16: 

base_ ob} [9] .enemy Flag = 4z 

for(1i = 0: 1 < base ob} [9] .h * base ob} [9] .w: ユエ ++) 
base ob}[9] .sp map[i] = ュ オ 33: 

base_ob] [9] .move = 1iner moVvez 

*(char *)gbase ob] [9] .Sp_map[15] 

*(char *)gbpase_ ob] [9] .Ssp map[14] 


enemy3 height: 


ー5: 
0: 


/* 爆発 ( 敵 で も 味方 で も な い 特 殊 な キャ ラク タ ) */ 
base_ob〕[10].x = 13 - 8: 
base_ ob][10].w = 2: 
base_ob][10] .h = 2 
base ob] [10] .hit x = 
base_ob] [10] .hit y = 
base_ob] {10] .hit w = 
base_ ob] [10] .hit h = 
base _ ob} [10] .enemy flag = 0z 
for(1 = 0: 1 < base ob} [10] .h * base_ ob] [10] .w: エ ++) 
jpase_ ob] [10] .sp_map[i] = ュ オ 42: 


G G。 G。 G 
TH 


base_ ob] [10] .move = deth move: 


base_ ob] [10] .sp map[13] = 0: 
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Function 6-1 イン ジ ケ ー タ 表示 を 制御 する 関数 

Yo1Qd near 1cd_set_segments (unstgned Segrien と 5S) : 

』 際 |) segencs: シン ボル (Table A) を 論理 和 で 結合 し た 値 
蘭 能 イン ジ ケ ー タ 表示 部 分 の 各 マ ー ク の 表示 状態 を 制御 し ます 。 
TableA segments の と る 値 

LCDSEG AUX3 予備 1 

LCDSEG AUX2 予備 2 

LCDSEG_AUX1 予備 3 

横 モ ー ド 

縦 モ キー ド 

省 電 力 


LCDSEG _HORTZONTAh 


LCDSEG_VERTTCAL 


国 旧 旧 還 


LCDSEG_SLEEP 


この 関数 は <sys/disp.h> に 定義 され て いま す 。<sys/disp.h> は <sys/bios.h> に よっ て も イン クル ー ド 
され ます 。 


点数 を 表示 し た い 


stg.c (List 6-2) は , STG の 基本 的 な 要素 を ちっ て いま す が , ゲー ム と し て は 完成 と 
いえ ませ ん ね 。 ま だ まだ 足り な い 要 素 が た くさ ん あり ます が , まず 最初 に あげ る と す 
れ ば , 点数 表示 が な いこ と で し ょ う 。 

まず , 敵 機 を 撃隊 し て 点数 を 得る 仕組 み が あ り ま せん か ら , この 仕組 み を 組み 込む 
こと か ら 索 ま 性 9。 


7 位 : 点数 の 処理 


敵 機 を 管理 し て いる の は 構造 体 oBgr で すか ら , ここ に その キャ ラク タ を 倒す と 得 ら 
れる 得点 を メン バ と し て 加え ます 。 int 型 の point と し て 加え る と よい で し ょ う 。 次 
に , base ob}[] で, 敵 ご と に point の 値 を 設定 し て や り ま す 。 自 機 , 弾 の point は 0 
と し て お きま す 。 ま た , create ob} () で , base_ ob} [] の point を , ob}js[] の 
point に コピ ー す る よう に し ます 。 あ と は , 点数 を 表す int 型 の score を 用 意 し , こ 
こ に 点数 を 加算 し て いけ ば よい の で す 。 score は , ゲー ム 開 始 前 に 0) で クリ ア し て お き 
ます 。 衝突 判定 を 行う ob] hit() で , 敵 機 を 爆発 に 置き 換え る 部 分 に , その 敵 機 の 
point を score に 加算 する 処理 を 追加 すれ ば , 点数 を 得る 仕組 み は 完 成 で す 。 
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7 倫 : 松 言 用 フォ ント デー タ の 作成 


こう し て 得 ら れ た score を 表示 すれ ば よい の で す が , ここ が すん な り と は いき ませ 
ん 。WonderWitch で 最初 か ら 利用 可能 な フォ ント デー タ は , WonderSwan を 横 置 き で 使 
用 する 場合 の デー タ な の で , その まま 表示 し て も , 縦 思 き で は 正しく 読め る 文字 に は 
な り ま せん 。 そこで , 使用 する 文字 O の フォ ント デー タ を 取得 し て , 縦 置 き 用 の フォ ン 
ト デ ー タ に 変換 する 必要 が あり ます 。 

フォ ント デー タ を 取得 し て , そこ か ら 90 度 右 に 回 転 し た フォ ント デー タ を 作成 し , 
画面 に 表示 する サン プル プロ グラ ム が , tatemoji.c (List 6-3) で す 。 こ の 仕組 み を 使え 
ば , 縦 置 き で 画面 を 使用 する 場合 で も , 正しく 読め る 文字 を 表示 で きま す 。 

スク リー ン 2 を 使っ て , こう し た 文字 の 表示 を 行う こと と し , 文字 を 表示 し な い 部 分 
は 穫 明 に し て お け ば , stg.c (List 6-2) に 文字 の 表示 機能 を 追加 で きま す 。 数 値 を 表示 
する こと に 関し て は , 第 5 章 で 作成 し た set number() (p.189) が 参考 に な る で し ょ 
の 

実際 に あな た の 手 で , stg.c に 点数 表示 機能 を 追加 し て みて くだ さい 。 


衣 下 肖 明 tatemoji.bin の 実行 画面 
sCnren1238 可 EE マ 7 時 


] 


点数 を 表示 し た い 坊 |Z5 


List 6-3 tatemoji.c 


#1nc1ude <syS/Dbios .h> 


int main() 【 


SN が: 光 
unSs1gned Cmapz 
static unsiqned char yokomo]1 [16] , tatemo]1 [16] 


tex モ scCreen inni(): 


/* 変換 対象 と な る 文字 キ ャ ラク タテ ー ブ ル に 登録 */ 
text put string(0, 0, 『" score0123456789『): 


/* 文字 を 90 度 右 回 転 変換 し, キャ ラク タテ ー プ ブル の 同じ 位置 に 登録 */ 
提 Q9E【 各 。 王 00 が SS が あま hT9 は 

/* yokomoji[] に フォ ント 取得 */ 

font get data(9 + i, 1, yokomo]1) 


/* 90 度 右 回 転 し た も の を tatemo]ji[} に 用 意 す る */ 
GO( コ 02 2 で 8: 9 に 


tatemo]i[] * 2] = 0: 
for(k = Oz k < 8: Kk++) 

tatemo]1[] * 2] |= ((yokomo]ji[k * 2] >> (7 - ])) 
tatemo]1[] * 2 + 1] = tatemo]1i[] * 2] ヶ 


/* tatemo}i[] を フォ ント 登録 */ 
font set colordata(9 + 1, 1, atemo]1 ) 


/* 表示 */ 
cmap = 8: 
for(1i = 0z: < 28: ++) 
下 OEX(ii: 二 0 は SU87 dt 下 ) 
screen se char(SCREEN2, 1, ], 1, 1, scmap) : 
for(] = 1, cmap = 9: ] < 16: ]++, Cmap++) 
SCreen se char(SCREEN2, 27, ], 1, 1, scmap) 


while(key press Check() != KEY START) : 


return 0: 


& 1) 


く ぐ 


1Z6 
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Function 6-2 キャ ラク タテ ー ブ ル か ら 画 像 デー タ を 取得 する 


Yo1Qd near fon _get_data (unsg1qned ご ga テア ロ O, umS1qdmnGd ご 玉 a ア ご OU カ と , 
YO1d fa エエ *a た a の り ): 


表 数 cnaz no:0 一 511 の 値 
cnar oogn た : cnar no と の 合計 が 512 以 下 の 値 


返 値 *gaca p:16Xcnar coun と バイ ト の 大 き さ を も つ 領 域 へ の ポイ ンタ 


機能 キャ ラク タテ ー ブ ル の cpar no 番 か ら cnar coun と 個 の 画像 デー タ を 取得 し ます 。 
取得 され る デー タ は , bmpcnv.exe に よっ て 得 ら れる , 8X8 ド ッ ト の 画像 デー タ が 
ん だ も の と 同じ 形式 で す 。 こ の 形式 で は , 8X8 ド ッ ト 4 色 の 画像 を 16 バ イト で 表現 し 
て お り , 1 ドッ ト あ た り 2 ビ ッ ト で 表現 する の で 1 ライ ン あ た り 2 バ イト の デー タ と な 
っ て いま す 。 上位 バイ ト の 1 ビッ ト 目 と 下位 バイ ト の 1 ビッ ト 目 を あわ せ て , その ラ 
イン の 右 負 の ドッ ト を 表し ます 。 


この 関数 は <sys/disp.h> に 定義 きれ て いま す 。<sys/disp.h> は <sys/biosS._h> に よっ て も イン クル ー ド 
され ます 。 


も っ と ゲー ム っ ぽく する 


stg.c (List 6-2) に 点数 表示 機能 を つけ る 方 法 は わか り ま し た 。 こ の よう に , 少し ず 
つ 処 理 を つけ 足し て いけ ば , あな た の 作り た い STG に な っ て いく で し ょ う 。 

一 定時 間 が 経過 し た ら (ゲー ム 中 で は メイ ン ル ー プ を 一 定 回 数 回 っ た ら ) ボス を 登 
場 き せ た り , オー プ ニ ン グ 画 面 を つけ た り , 自 機 を 複数 も て る よう に し た り , ハイ ス 
コア ラン キン グ を つけ た りす る と , より ゲー ム と し て 完成 され た 形 に な る で し ょ う 。 

また , 敵 の 種類 を 増やし た り , 動き を 複雑 に し た り , 画像 を 差し 替え た り し て も よ 
いで すね 。 

stg.c を 起点 に し て , あな た だ け の STG を 作っ て みて くだ さい 。 


も っ と ゲー ム っ ぽく する 寸 1ZZ 


トド ペン ャ ー 
ゲー ム を 作っ て みよ う 


最近 の ゲー ム で は , ジャ ン ル を 問わ ず , ゲー ム 中 の 登場 人 物 と 会 話 を し た り , 状況 

説明 を 受け た りす る パー ト が た いて い 存 在 し ます 。 ゲ ダー ム の 演出 手法 と し て , アド ベ 
ンチ ャ ー ゲ ー ム (以下 , ADV) 的 手法 が 一 般 的 に な っ て いる の で す 。 こ の た め , ADV 
の プロ グラ ム を 作成 する こと で , ADV が 作れ る だ け で な く , さま ざま な ゲー ム に 組み 
込ん で 利用 で きる の で , ゲー ム 作 り の 幅 を 広げ る こと が で きま す 。 


@s# 画面 構成 か ら 設計 


ゲー ム は や は り 画 面 あ りき で すか ら , ここ で も , 画面 構成 を 設計 する と ころ か ら 始 
め ま す 。 一 般 的 な ADY の 画面 構成 を , 自分 の プロ グラ ム で 実現 する た め に , どの よう 
に すれ ば いい の で し ょ うか ? WonderWitch で 使え る 画面 表示 シス テム を 念頭 に お い 
6 SH 
こ で 作る ADV は , 画面 上 に 1 枚 の 画像 が 表示 で き , 画面 下部 に 3 行 の メッ セー ジ 表 
示 エ リア を も た せる も の と し ます (Hig.7-1)。 


[Fig.7 


勝 アド ベン チャ ー ゲ ー ム の 画面 構成 


画像 表示 領域 


テキ スト 表示 領域 (8 文字 3 行 ) 


人 ゲー ム の 進行 を 直接 プロ グラ ム す る 


ADV で は , 画像 を 表示 する タイ ミン グ や , 表示 する メッ セー ジ が , ゲー ム を 進行 す 
の に 必要 な 要素 と な り ま す 。 た と えば , adv1.c 0000 2082 2 Ne 
れ ば , 紙芝居 を 作る こと が で きま す 。 advl.c で は , 画像 と メッ セー ジ を , 進行 に 沿っ て 
表示 させ , 紙芝居 を 実現 し て いま す 。 main ( (PO の 2 ウン ト の 
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矢印 に よっ て , 選択 肢 を 表現 し , 選ば れ た 結果 に よっ て , 進行 の 流れ を 制御 し て いま す 。 


advl.c を 実行 する た め に は , grpl.bmp と grp2.bmp を 


> bmpcnv drp1 . bmp 
> bmpcnV qrDp2 .bmp 


と し て 作成 し た , grp1.fr, grp2.r も rorm0 領 域 に 転送 する 必要 が あり ます 。 


adv1.bin の 実行 画面 


イヌ で 3 


しい お が つ し 旧 0 お 


List7-1 adv1.c 


/* 
アド ベン チャ ー ゲ ー ム 
| 直接 ゲー ム の 進行 を プロ グラ ム に し た も の 。 
*/ 


#1mo1ude <stdio .h> 
#1mc1ude く Srinq.h> 
#1no1ude <sys/fcn1 .h> 
#1ncl1ude <sys/bios .h> 
#1nClude く reSourC@ .h> 


int select() 
void clear msd(): 
1nt key wa up(1nt) 


void matin() { 
BYTE Fa *OrD: 
3 も すす 。 贅 : 
Static unsigned char yokomo]1 [16] , tatemo]j1 [16]: 


disp1ay conro1 (DCM SCR1 | DCM SPR): 
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text se screen (SCREEN1) 


text Screen 1ni() : 


/* を 横向 き に し て 選択 用 の 矢印 に する */ 
text put string(0, 0, " 全 7): 

Font get data(8, 1, yokomo}1 ) 
EGE( 二 三 Oz で 82 引 キ まう) 【 


tatemo]1[] * 2] = 0』 
ま OF(k ニ O7 k で 8: KK 半 す ) 
tatemo]i[] * 2] |= ((yokomo]i[k * 2] >> (7 - })) & 1) << ki 


tatemo]1[] * 2 + 1] = tatemo]i[] * 2]』 
font se co1ordata(0, 1, tatemo]1 ) 
sprite set range(0, 1): 
palette set co1or(12, 0x7300): 
Sprite set char(0, CFM SPR UPPER | (12 - 8) * Ox200 | 0): 
Sprite set 1ocation(0, 224, 144): 


/* これ 以降 , ゲー ム の 進行 を c 言 語 の プロ グラ ム で 表現 */ 
Sar キ > 


/* 画像 を 表示 */ 

clear msg()z 

grp = mmap("/rom0/grp1 .fr") : 

fon set co1ordata(8, 28 * 15, grp + sizeof(res image ) ) 


/* メッ セー ジ を 表示 */ 
text put string(0, 15, "きょん ば ん わ 、 イ ヌ で す 。") : 
key_ wait up(KEY AA) : 
text put string(0,。 16, 

"仲間 内 で 1 番 遅い マシ ン を 使っ て いる 事 に 気がつい て 、"): 
key _wa1t up(KEY か ) 
text put string(0, 17, 

"も っ と 速 い マ シン が 倫 し い 、 お ひつ じ 座 の あな た 。『") : 
key_ wait up(KEY A): 


/* 3 行 表示 し た ら メ ッ セ ー ジ を クリ ア +*/ 
clear msg()z 


text put string(0, 15, "解決 策 は 1 つ で す 。"『): 

key_ wait up(KEY A): 

text put string(0, 16, "買え !"): 

key_ wait up(KEY 入 ): 

text put string(0, 17, "それ で は 、 今 日 の 円 の 動き で す 。 "): 
key_ wait up(KEY A): 
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clear msg(): 


grp = mmap("/rom0/grp2 .fr") 
Font set co1ordata(8, 28 * 15, qrp + sizeof(res image t) ) 


text put string(0。 15, "ぐる ぐる へー"): 

key_ wait up(KEY か ) 

text pu string(0, 16, "で る ぐる ぐる ~ー ツ )』 

key_ wait up(KEY A) 

text put string(0, 17, "ぐる ぐる ぐる ぐる ぐる ~ー ツ ): 
key_ wait up(KEY A): 

cl1ear msSd(): 


grp = mmap("/rom0/grp1 . Fr") : 
Font _set colordata(8, 28 * 15,。 grp + stzeof(res image t) ) 


text put string(0, 15, "円 の 動き で し た 。 ") : 
key_wait up(KEY A): 

text put string(0, 16, "それ で は 、 為 替 と 株 の (以下 略 ) ") : 
key_ wait up(KEY か ) 

text put string(0, 17, "ニュ ー ス で し た 。『): 
key_wa1t up(KEY A) : 

clear msdg() 


/* 選択 肢 の 実装 */ 
text put string(0, 15, "まだ 見 る ?") : 
text put string(1, 16, "も う 見 な い ") : 
text put string(1, 17, "も う 1 回 最初 か ら 見 る ") 
1f(select() == 2) 
doOtO Star』 


/* 選択 肢 を 選ば せる +*/ 


int selec キ () { 


も う 3。 y デー 128: 


Sprite set 1ocation(0, 0, yY): 


while(!((1 = key wait() ) & KEY ム か) ) { 
1f(1 gs KEY X1) 
y = 128: 
el1se if(1 & KEY X3) 
y = 136: 


Sprite se 1ocation(0, 0, ) 
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sprite se 1ocation(0, 224, 144): 


if (y == 128) 
ェ eturn 1 
el1se 
return 2 


/* メッ セー ジ エ リ ア を クリ ア す る +*/ 
vod co]ear msgd() { 


ES 5 が 


for(1 = 15: ュ < 18: ユ ++) 
@:( け . 三 0/ で 28: 3 は キ ) 
text pu string(], 1/ 


ww) : 


/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
1int key wait up(int mask) { 


nm も エ 。 Pe も > 
while(!((1 = key wai() ) & mask) ) 
ret = 1 ュ : 


while(key press check() & re) : 


ェ return re』 


ゲー ム の 進行 を デー タ で 表現 する 


advy1.c (List 7-1) の よう に ゲー ム の 進行 を 直接 プロ グラ ム 内 部 に 書い て し まう と , 
異な る 進行 を 行わ せ た い と 考え る た びに , 毎回 プロ グラ ム を 書き コン パイ ル す る 必要 
が 生じ ます 。 こ れ は あま り 効 率 的 で は あり ませ ん か ら , 1 つの プロ グラ ム で さま ざま な 
進行 に 対応 で きる よう な 方 法 を 考え まし ょ う 。 

プロ グラ ム を 変え る こと な く 進 行 を 変え られ る よう に する た め に は ,。 プロ グラ ム 内 
都 信 進入 を も た せな いよ うに し な けれ ば な り ま せん 。 そ こ で 。 進行 を デー タ 化 し て , 
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プロ グラ ム 外 部 に 置く よう な 仕組 み を 考え ます 。 

一 般 的 な ADV で も , こう し た 仕組 み が 採 用 され て お り , 進行 を デー タ 化 し た も の を 
「 ス クリ プ ト 」| と 呼ん を で いま す 。 ス クリ プ ト に 基づい て 動作 する ADV プ ログ ラム を 考え 
まし 中 5 


寺 スク リプ ト の 設計 


プロ グラ ム を 考え る 前 に , 進行 を 表現 する スク リプ ト を 設計 し ます 。 ス クリ プ ト は , 
複雑 な 進行 を 平易 に 表現 で きる よう に , 簡単 な プロ グラ ミン グ 言 語 と し て の 機能 を も 
つ 必 要 が あり ます 。 ま た , デー タ を 作成 し や すく , 書き や すい も の で な いと 不便 な の 
で テキ スト デー タ で 表現 され る も の と し まし ょ う 。 ス クリ プ ト を 読み 込ん で 処理 する 
プロ グラ ム を 作り や すく する た め に , 1 行 に つき , 1 つの 命令 表現 を 与え る こと に し ま 
すき 

最初 に , 画像 を 表示 する 命令 が 必要 で す 。 


1oad (9 と の 7a7@) 
grp nae・ 画像 の 名 前 


と いう 文字 列 で , 指定 し た 画像 を 表示 する こと に し まし ょ う 。 

次 に メッ セー ジ の 表示 で す が , これ は 命令 な ど に 解釈 され な い 行 を , その まま メッ 
セー ジ と じ て 表 示す る こと に し ます 。 

選択 肢 の 表現 は , 命令 行 と . その あと の メッ セー ジ 3 行 を 組み 合わ せ て , 2 択 を 表現 
で きる よう 9 だ じ ま ず 。 


selec (Ja ちり er 7 , 7 ちら 72) 
質問 の 文 

選択 肢 1 の 文 

選択 肢 2 の 文 


7a ち e77 ・ 選択 肢 1 が 選ば れ た 場合 の 飛び 先 
7aper2 ・ 選択 肢 2 が 選ば れ た 場合 の 飛び 先 
選択 に 応じ て 指定 ラベ ル に 飛び , その ラベ ル 以 隆 の 進行 を 行う よう に し ます 。 ラ ベ 
ル に “nu11”" と いう 文字 列 が 設定 され た 場合 は , se1ect 命 令 以 降 の 進行 を 行う こと 
引 形 まず 。 
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ラベ ル に 飛ぶ た め に は , スク リプ ト 中 に ラベ ル が 設定 で き な け れ ば な り ま せん 。 そ 
we で 。 ジ ベル は 


:J ュ ちら 7 
7ape7 : ラベ ル 名 


と し て , 設定 で きる よう に し ます 。 進行 を 開始 する 位置 は “start” ラベ ル で , 進行 
を 終了 する 位置 は “esnqa” ラベ ル で 表現 する こと に し ます 。 

せっ か く ラ ベル が 設定 で きる の で すか ら , た だ 単に ラベ ル へ 飛ぶ 命令 $ あ れ ば 便利 
し よう 


d す oto ( Jap@J ) 
7aper ・: 飛び 先 の ラベ ル 


こう し て 設計 し た スク リプ ト を 使っ て , adyl.c (List 7-1) の 進行 を 表現 する と , 
adv.txt (List 7.2) と な り ま す 。 


凌 スク リプ ト の 実行 系 を 作る 


adv.txt (List 7-2) を 開い て , 内 容 を 読み な が ら , そこ に 指示 され た 進行 に 基づい て 
ADV を 実行 する プロ グラ ム を 作り ます 。 

1 行 ず つ 読 みな が ら , 空 行 と ラベ ル は 読み 飛ば し , 命令 は 実行 し , それ 以外 は メッ セー 
ジ と し て 表示 し ます 。 

adv2.c (List 7-3) は , adv.txt を 読み な が ら 進 行 を 行う プロ グラ ム で す 。 実行 に は , 
adv.txt, grpl.fr。 grp2.fr も rom0 領 域 に 転送 する 必要 が あり ます 。adv1.c (List 7-1) と 
同様 に 動作 する こと を 確認 し て くだ さい 。 

ソー ス の 大 半 の 部 分 は , 文字 列 操作 を 行っ て いる だ け で , それ ほど 難し い 処 理 は あ 
り ま せん 。adv1.c と 対比 すれ ば , advl.c で 行っ て いる 処理 を , スク リプ ト か ら 取 得 し た 
文字 列 を 元 に 行っ て いる だ け だ と わか る で し ょ う 。 

get 1ine() は . スク リプ ト か ら 1 行 を 取得 する 関数 で す が , 行末 は 0x0d か どう か 
を 調べ る こと で 判断 し て いま す 。 こ れ は , Windows 上 で 作成 し た テキ スト ファ イル の 
改行 が , 0x0dg, 0x0a の 2 バイ ト で 行わ れる た めで す 。Windows 上 で 作成 し た テキ スト 
ファ イル を バイ ナリ エディ タ で 見 て みる と 確認 で きま す 。 
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。 adv.txt 


に 4 相本 


1oad (grp1 ) 


きょん ば ん わ 、 イ ヌ で す 。 


仲間 内 で 1 番 泊 い マ シン を 使っ て いる 事 に 気がつい て 、 
も っ と 速 い マ シン が 答 し い 、 お ひつ じ 座 の あな た 。 


解決 策 は 1 つ で す 。 
買え ! 
それ で は 、 今 日 の 円 の 動き で す 。 


1oad (9rp2 ) 
ぐる ぐる 一 


ぐる ぐ で る ぐる 一 
ぐる ぐる ぐる ぐる ぐる 一 


1oad (qrp1 ) 


円 の 動き で し た 。 
それ で は 、 為 奉 と 株 の (以下 略 ) 
ニュ ー ス で し た 。 


Se1ect (end, St 上 ar) 
まだ 見 る ? 
も う 見 な い 
も う 1 回 最初 か ら 見 る 


: end 


スク リプ ト の 実行 系 を 作る 電 


MS 


3 adv2.c 


アド ペン チャ ー ゲ ー ム 


ゲー ム の 進行 を スク リプ ト フ ァイル か ら を 読み 込む 。 


#/ 


#1nc1ude ぐ std1io.h> 
#1nc1ude < く string.h> 
#1inc1ude <sys/focnt1 .h> 
#1nc]ude <sys/bios .h> 
#1mC1ude く reSOuFC@ .h> 


/* 文字 列 バ ッ フ ァ は 64 バ イト */ 
#defFine STRTNG MAX 64 


/* get 1ine() の 返 値 */ 
#define START LABEL 1 
#define END LABETL 2 


void ]jump 1ape1 () 

tnt get 1ine(char far メ ): 
int selec () : 

void cear msg(): 

nt key wait up(int) : 


char far *SCript, far *now pon: 
char str[STRING_MAX] , tmpstr[STRTNG MAX] 
int msg 1ine: 


void main() 【{ 
Static BYTE Far *qdrDs 


昌光 を 、 まあ 。 7 


disp1ay_contro1 (DCM SCR1 | DCM SPR) 
text set screen (SCREEN1 ) 


text screen 1n1 七 (): 


/* 選択 肢 を 選ぶ 矢印 を 作成 */ 
text put string(0, 0, "人 の ) : 
font get data(8, 1, str) : 
for(] = 0: ] く 8: ]++) { 


tmpstr[] * 2] = 0: 
EGO が a( ま 三 0 エエ (で 87 せ エ ず ) 
EmpSEI[| さ 2] トト 三 、 (SErI 2]1 テラ ァ (7 
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6) 


6 斗 ) くく 1 ユ / 


EpSE 中 | ま 2 キ 11 三 も mpsEE[ * 21: 
} 
font se co1ordata(0, 1, tmpst と ) : 
Sprite set range(0, 1): 
palette se col1or(12, Ox7300): 
Spr1te set char(0, CEM SPR UPPER | (12 - 8) * 0x200 | 0): 
Sprite se 1ocation (0, 224, 144): 


/* スク リプ ト へ の アク セス を 確保 */ 

SCript = mmap("/rom0/adv.txt"): 

if(Script == NULL) { 
text put string(0, 0, "スク リプ ト フ ァイル が あり ませ ん "): 
key_wa1t up(KEY か A) : 
return: 


} 


now_ Point = Script: 
msg 1ine = 15: 


/* star モ ラベ ル ま で 行く */ 
while(get 1ine(str) != START LABEL) 


/* end ラ ベル まで 1 行 ず つ 進 行 を 処理 する */ 
while(get 1ine(Str) != END LABEL) { 


/* ラベ ル は 読み 飛ば す */ 
ifF(str[0] == "': げ ) 
COnt1nuez 


/* 画像 を 表示 */ 
司 邊 癌 @ (SEEmCNB((BEE。 "Load("。 599 1 
clear msg(): 
strcpy (tmpstr, "/rom0/") : 
Strcpy(tmpstr + 6, str + 5): 
8 も GoDY (SErChri(tmpstF,。 ") 9 。 す 、Er") 
drD = mmap(tmpst て ) 
if (grp == NULL) [{ 
text put string(0, 0, "存在 し な い 画像 が 指定 きれ て いま す "): 
key_ wait up(KEY A): 
breakz 
} 


Font set co1ordata(8, 28 * 15, qrp + sizeof(res image ) ) 


/* 選択 */ 
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etse ifF(!strnomp(Str, "se1ect(",。 7) ) { 


/* 選択 肢 を 表示 */ 

clear msg()z 

Je 上 11ne(EmpSt て ) : 

text pu string(0, 15, tmpstr) : 
get 11ine(tmpstr) : 

text put string(1, 16, tmpstr) : 
get 1ine (tmpst ェ ) : 

text put string(1, 17, tmpst エ ) 


/* 選択 きれ た 方 の ラベ ル を 検索 対象 に 設定 */ 

1 = selec() 

if(1 == 1) { 
stropy (tmpstr, strchr(St エ , 「(") 1): 
*strohr(tmpstr, 「,。「) = "\ ぎ 0!: 

} 

else { 
strcpy (tmpstr, strchr(str, 「。") ユ 1) 
*strohr (tmpstr, !)「) = "W07: 

} 

ump_1abe1 () 

clear msg(): 


/* ジャ ンプ +*/ 

el1se 1f(!strncmp(str, "goto(", 5) ) 【 
stropy (tmpstr, Strchr(str, !(") + 1): 
*strohr(tmpstr, 「)!) = \07: 
jump 1abe1 () 


/* メッ セー ジ の 表示 */ 
else { 
text put string(0, msg_1ine, Str): 
key _ wait up(KEY 人 ム ): 
msg 11nme++:。 
if(msg 1ine == 18) 
clear msd(): 


/* tmpstr に 設定 され た ラベ ル に 飛ぶ */ 
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void ]ump 1abe1 () { 


NE ます 


/* 検索 対象 が 特別 な ラベ ル だ っ た 場合 の 処理 */ 
if (! stromp (tmpstr, "end") ) 

bios ex1() 
すま (! BEEo0D( も mg も tr, "mul1") ) 


エ とら GUuTi 


/* スク リプ ト を 先頭 か ら 1 行 ずつ 調べ て , 該当 する ラベ ル ま で 行く */ 
nOW PO1nmt = SCr1p: 
while((1 = get 1]ine(str) ) != END LABETL, gg strcmp (St エ + 1, tmpSst と ) ) : 
1f (1 == END LABEL) { 
text put string(0, 0, "存在 し な い ラ ベル が 呼ば れ て いま す "): 
key_wait up(KEY か A) : 
bios exi() 


/* script デ ー タ か ら 1 行 取得 

空 行 は 読み 飛ば し , 行頭 の 空白 と () 内 の 空白 は 詰め る */ 
int get 1ine(char far *str) { 

char tr1imz 

まま ミ ? 


do { 
for(1 = 0, trim = Ox02: *now Point != Ox0d s& 1 < STRTNG MAX: 
ミュ ++, now_ poin キ ++) { 
1f(*now point == 「'(『) 
trim |= 1 
else 1f(*now point == !)!) 
trim &= Oxfe: 
el1se 1F(trim && (*now DO1nt == ! ! | | *now po1nt == '\ 上 !) ) 
ニニ 
ContinmUGz 
] 
trim &= ニ OxfEQz 
S キ [1] = *now DOoint: 
} 
1f (1 == STRTNG MAX) ( 
text put string(0, 0, "1 行 が 長 過 ぎ ま す "): 
key wait up(KEY ム ) 
bios ex () : 
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{ 
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str[i] = "'\0『: 
now Point + ニ = 2: 
} while(!strlen (st と ) ) : 


で E(!S も EPCmDp:(S も と 。 "SEar も " う 
return START LABELz 


e1se 1f{!stromp (st エ , ":end") ) 
return END LABET: 

else 
Feturn 0: 


/* 選択 肢 を 選ば せる */ 
in select() { 
ゃ 尋 は /y。 守 1287 


sprite se 1ocation(0, 0, y): 
while(!((1 = key wait() ) & KEY A ぬ ) ) { 
1f(1 & KEY X1) 


y = 128z 
e1se 1fF(1 & KEY X3) 
y = 136: 


sprite set 1ocation(0, 0, ) 


sprite se 1ooation(0, 224, 144): 


if(y == 128) 
return 1: 
e1se 
return 2。 


/* メッ セー ジ エ リ ア を クリ ア す る */ 
void cl1ear msg() { 


4 


msd 1ine = 15: 
for(1 = 15: 1 < 18: ユエ ++) 
For(] = 0z ] < 28: j++) 
text put strind(], 1 ユ , "の )』 
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/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
1nt key_ wait up(int mask) { 
nt ret: 


while(!((ret = key wait()) & mask) ) : 
while(key presS cheock() & re): 


で GUurD re 
| ) 


Function 7-1 プロ グラ ム を 強制 終了 する マク ロ 


bios_ex1 七 () : 


機能 | <sys/service.h> に 定義 き 8 きれ て いる マク ロ で , プロ グラ ム を 綴 制 的 に 終了 し ます 。 
man () 関数 外 で 致命 的 な 状態 に 陥っ た 場合 , 即座 に プロ グラ ム を 終了 し た い 場 合 に 
使う と よい で し ょ う 。<<sys/servive.h> は <sys/bios._h> に よっ て も イン クル ー ド され ま 
95o 


人 変数 と 演算 を 導入 する 


adv2.c (List 7-3) に , さま ざま な スク リプ ト フ ァイル と 画像 ファ イル を 組み 合わ せ 
て 使え ば , 簡単 に ADV を 作成 する こと が で きま す 。 しかし, adv2.c で は , 選択 の 結果 を 
残し て お いて , あと で 進行 の 分 岐 に 利用 する と いう , 遅延 分 岐 の 実現 が 困難 に な っ て 
いま す 。 

遅延 分 岐 を 実現 する た め に は , スク リプ ト 中 で 変数 を 使え を る よう に する の が , 一 般 
的 な 解決 法 で す 。 変 数 を 導入 し て , スク リプ ト の 仕様 を 拡張 し て みる こと に し ます 。 

まず スク リプ ト 中 で 使用 で きる 変数 を , 符号 付き 整数 型 の Az の 26 個 に し ます 。 使 
える 変数 を あら か じ め 決 め て し まっ て , プロ グラ ム 中 で の 処理 を ラク に し ます 。 

変数 に は 値 を 代入 で き な け れ ば いけ ませ ん か ら , 代入 演算 子 “=” が 必要 に な り ま す 。 
また , 剰余 を 含む 四則 演算 “+”“"-" "の * ク / "と びす)” つき の 計算 を 行え る よう 
民 に ます .。 

ここ で の 変数 の 導入 は , 変数 内 容 に よる 分 岐 処理 の 実現 の た めで すか ら , 変数 を 含 
む 条 件 式 を 満た し て いる 場合 に , ラベ ル へ の ジャ ンプ を 行う 命令 
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ifF (COn ェ と 了 の On, ナコ ちら ) 


cong 了 oop・ ジャ ンプ を 行う 条件 式 
ape7 ・ 飛び 先 の ラベ ル 
を 追加 し ます 。 条 件 式 で は “() ” つき 四則 演算 と , 比較 演算 子 “==" "= < To 
“<=” “>=”。 論理 演算 子 “gg” “|11" を 使用 で きる よう に し ます 。 
こう し て 拡張 し た スク リプ ト を 使っ て , adv.txt に 変更 を 加え た も の が , 次 の 
adv_ new.txt (List 7-4) で す 。 


| Hist7-4 adv new.txt 


: S 上 ar エキ 
1oad (9Fp1 ) 


きょん ば ぱん わ 、 イ ヌ で す 。 

仲間 内 で 1 番 遅い マシ ン を 使っ て いる 事 に 気がつい て 、 
も っ と 速い マシ ン が 欲し い 、 お ひつ じ 座 の あな た 。 
解決 策 は 1 つ で す 。 

買え ! 


select (nu11, 1abe11 ) 
遅延 分 岐 し て みよ う 。 

A に 1 を 入れ る 。 

A に 2 を 入れ る 。 


江 三 - 由 、 貼 
qoto(1abe12 ) 


:labe11 


: 1abe12 

さて 、 あ な た は どちら を 選び まし た か 3? 
この 結果 は 後ほど …… 

それ で は 、 今日 の 円 の 動き で す 。 


1oad (qrp2 ) 


ぐる ぐる 一 
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ぐる ぐる ぐる 一 

で る で る で る ぐ で る ぐる 

1oad (qrP1 ) 

円 の 動き で し た 。 

それ で は 、 為 替 と 株 の (以下 略 ) 
に コー2e(Ga] 


さき さて 、 先 ほど の 選択 結果 に 応じ て 変数 に 値 を 代入 する 件 で す が 
あな た は どっ ち を 選ん だ ん で し た っ け ? 


if(A != 1, 1abe13) 了 の 


そう そう 、A に 1 を 入れ る を 選び まし た ね 。 
goto(1abe1 4 ) 


: abe13 
そう そう 、A に 2 を 入れ る を 選び まし た ね 。 
: labe1 4 


危う く 、 忘 れる と ころ で し た よ 。 
(うそ ) 


se1ec (nu1 1 , 8 上 ar ) 
まだ 見 る ? 

も う 見 な い 

も う 1 回 最初 か ら 見 る 


:enQd 


変数 , 演算 , if 命令 を 解釈 実行 で きる よう に , adv2.c を 拡張 し た プロ グラ ム が , 
adv3.c (List 7.5) に な り ま す 。 ま た , adv3.c で 必要 に な る 数 式 処理 に 関す る プロ グラ 
ム は postfix.c (List 7-6) に まとめ て いま す 。 adv3.c と postfix.c か ら adv3.bim を 得る に は , 


> 1cc86 -o adv3 .bn ady3 .C posE1ixx .C 


と し て コン パイ ル を 行っ て くだ さい 。 adv3.bin の 動作 を 確か め る に は , adv_new.txt と 
grpl.fr, grp2.fr も rom0 領 域 に 転送 する 必要 が あり ます 。 
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K パ calculate( ) 


数 式 処理 を 行う た め に 作成 し た ca1cu1ate () (List 7-6) で は , 演算 子 群 と 変数 , 
10 進 数 の 数 値 で 構成 され た 文字 列 (数 式 ) を 解析 し , 計算 結果 を 返し ます 。 プ ログ ラ 
ミン グ 言 語 で は , 算術 演算 に 用 いる 演算 子 も , 条件 式 表現 に 用 いる 演算 子 も , 一 元 化 
し て 扱わ れる の が 一 般 的 な の で , この ca1cu1ate() で も 同様 に , 演算 子 の 区 別 無く 演 
算 す る よう に な っ て いま す 。 こ の た め , 変数 へ の 代入 を 行う の も , 条件 式 を 判定 する 
の も , 同じ ca1cu1ate () で 処理 で きる よう に な っ て いる の で す 。 


> 放 後 計 記法 

ca1cu1ate ( ) で は , 数 式 を 処理 する た め に , 与え られ た 数 式 を 後 置 記法 ( 送 ポ ボー ラ 
ンド 記法 ) に 置き 換え な が ら , 数 式 処理 用 の スタ ッ ク を 使っ て , 計算 を 行っ て いき ま 
3 あ 8 

後 置 記法 と は , 演算 子 を 後に 置く 数 式 の 書き 方 で す 。 た と えば ぱ ば , 


3*(1+1) 
は , 後 革 記法 で は 
ilI3e| 


と 記述 され ます 。 後 置 記法 に は , “() " が 入る こと や , 演算 子 の 優先 順位 に よっ て , 数 
式 の 途中 か ら 計 算 を 開始 し な けれ ば な ら な い 普 通 の 数 式 と は 異な り , 数 式 の 前 か ら 順 
に 処理 し て いけ ば , 正しく 計算 が で きる 利点 が あり ます 。 


> 訪 スタ ッ ク 

後 置 記法 で 書か れ た 数 式 を 処理 する た め に は , スタ ッ ク を 利用 し た 方 法 が よく 使わ 
れ ま す 。 ス タッ ク と は , Fig.7-3 の よう な デー タ 構 造 の こと で す 。 

後 置 記法 の 式 を 前 か ら 見 て いっ て , 値 な ら ば スタ ッ ク に 積ん で いき , 演算 子 な ら ば 
スタ ッ ク か ら 演 算 に 必要 な 数 の 値 を 取り 出し て 計算 し , 結果 を スタ ッ ク に 積み ます 。 
こう し て 数 式 を 最後 まで 処理 する と, 式 の 計算 結果 が スタ ッ ク に 1 つ だ け 残 り ま すか ら , 
その 値 を 取り 出せ ば よい わけ で す 。 
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タッ ク 


どん どん 上 に 積ん で いけ る 


2 番目 に 入れ た 値 
最初 に 入れ た 値 


取り 出す 場合 は 1 番 上 に 積ん で ある も の か ら 取 り 出 され る 


> 放 再帰 的 下向き 構文 解析 
postfix.c (List 7-6) で は , 普通 の 数 式 を 後 置 記法 に 変換 する の に , 再帰 的 下向き 構 
文 解 析 と いう 手法 を 使っ て いま す 。 こ こ で の 構文 解析 は 


① 数 式 と は 放 coz7 で ある 
②JAco77 と は coz2 が 1 つか “=” で 結ば れん た も の で ある 


③ co7 る と は cfo79 が 1 つか “gg” “で 結ば れ た も の で ある 
④Jcoy9 と は cfo74 が 1 つか “==" "<" ">” 9<= リッ = ニ ” ロニ" で 結ば れ た も の 
で ある 


⑤ Jacoy4 と は Jacoy5 が 1 つか “+" “-” で 結ば れ た も の で ある 
⑥ co7$ と は 用 czoy6 が 1 つか “"*"“/" “5” で 結ば れ た も の で ある 
(⑦Jcoy6 と は coy7 が “ () ” で 括 ら れ た も の か , 数 値 か , 変数 で ある 


と いう ルー ル に し た が っ て 行わ れ ま す 。 そ れ ぞ れ の 数 式 の 要素 (トー クン ) が , スタ 
ッ ク に 積ま れ た り , 演算 子 と し て 解釈 され た り し て , 演算 が 行わ われる よう に な っ て い 
ま 09e 

postfix.c に 書か れ て いる よう な アル ゴリ ズム は , コン パイ ラ を 作成 する 場合 に も 使わ 
れ で いま ず 。 
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3 下記 代 adv3.c の 処理 の 流れ 


各種 初期 設定 
・ ス プラ イト (選択 権 を 選ぶ 矢印 ) の 準備 


・ ス クリ プ ト フ ァイル へ の ポイ ンタ を 取得 
・ ス クリ プ ト 変 数 の 初期 化 


スク リプ ト の 読み 出し 位置 を start ラベ ル ま で 移動 


get ine0 で スク リプ ト を 1 行 読み 込む 


は い 失 
その 行 は end ラ ベル か ? 


いい え 


その 行 は load 命 令 か ? 
指定 され た 画像 を 読み 込ん で 表示 


| 


その 行 は select 命 令 か ? 


選択 肢 を 表示 する 
選択 の 入力 を 待つ 
選択 され た 方 の ラベ ル に ジャ ンプ する 


指定 され た ラベ ル に ジャ ンプ する 


その 行 は goto 命 令 か ? 


その 行 は 命令 か ? 


条件 式 を calculate() で 処理 


結果 が 0 以外 か ? 
指定 され た ラベ ル に ジャ ンプ する 


代入 式 を calculate() で 処理 


その 行 を メッ セー ジ と し て 表示 


終了 
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/* 


アド ベン チャ ー ゲ ー ム 


ゲー ム の 進行 を スク リプ ト フ ァイル か ら を 読み 込む 。 
変数 と 演算 を 導入 。 
*/ 


#1nclude <stdio.h> 
#1nc1ude < く string.h> 
#1nclude <sys/fcnt1 .h> 
#1nc1ude < く syS/Dbios .h> 
#1inc1ude <resource .h> 


/* 文字 列 バ パッ ファ は 64 バ イト */ 
#define STRTNG MAX 64 


/* get 1ine() の 戻り 値 */ 
#def1ine START LABEL 1 
#define END LABEL 2 
#define ASSIGT 4 


/* 数 式 処理 は ca1cu1ate () で 行う */ 
extern in ca]cu1ate () 


Vo1d Script error(ohar far メ ): 
Void jump 1abe1 () : 

nt get 1ine(char far *): 

nt se1ec () : 

Votd clear msg(): 

1nt key _ wait up(int) 


Char far *scr1ipt, far *now Don 

char Str[STRTNG MAX] , tmpstr[STRTNG MAX] : 
1nt msd 1inez 

nt Script var[26] 


void main() [{ 
Stat1c BYTE far *qrDz 
nt i, ], 1ine state: 


display conro1 (DCM SCR1 | DCM SPR) : 


text set screen (SCREEN1 ) 


text screen 1ni(): 


変数 と 演算 を 導入 する 


/* 選択 肢 を 選ぶ 矢印 を 作成 */ 
text put string(0, 0, " 全 9): 
Font ge data(8, 1, St と ): 
E@ 六 (| 三 0 で 8 すま) 【 


tmpstr[] * 2] = 0: 
For(1 = 0 エ < 8j エ + オ +) 
tmpstr[] * 2] |= ((str[i * 2] >> (7 - う )) & 1) << ii: 


tmpStr[] * 2 + 1] = tmpstr[] * 2]: 
} 
font set co1ordata(0, 1, tmpstr) 
Sprite se range(0, 1): 
pa1ette set co1or(12, 0x7300) 
Sprite set char(0, CFM SPR UPPER | (12 - 8) * 0x200 | 0) 
Sprite se 1ocation(0, 224, 144): 


/* スク リプ ト へ の アク セス を 確保 */ 

script = mmap("/rom0/adv new.txt") : 

iF(script == NULL) { 
text put string(0, 0, "スク リプ ト フ ァイル が あり ませ ん り ): 
key_ wait up(KEY 叙 ) 
returnz 


} 


now Doint = Scr1pt: 
msg 1ine = 15: 


/* 変数 の 初期 化 * ょ / 
for(i = 0 1 < 26: エ ++) 


Script var[i] = 0: 


/* star エ ラベ ル ま で 行く */ 
whi1e(get 1ine(str) != START LABEL) 


/* end ラ ベル まで + 行 ずつ 進行 を 処理 する */ 
while((1ine state = get 1ine(Str) ) ! END LABEL) { 


/* ラベ ル は 読み 飛ば す */ 
if(sStr[0] == 「: り ) 


Con て inue: 


/* 画像 を 表示 */ 

else 1f(!strncmp(str, "1oad(", 5) ) { 
clear msg()z 
strocpy(tmpstr, 『"/rom0/"): 
strcpy(tmpstr + 6, str + 5): 
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SEEGPY(SE 下 GEi(EmBS も ET) 99 と EEW) ょ z 

drDp 三 mmap(tmpstr) 

tf (grp == NULL) 【{ 
text_put string(0。 0, "存在 し な い 画 像 が 指定 され て いま す ") : 
key_wait up(KEY A): 
break: 

} 


font set co1ordata(8, 28 * 15, grp + sizeoF(res image ) ) 


/* 選択 */ 
else ifE(!strncmp (str, "select(", 7)) [{ 


/* 選択 肢 を 表示 */ 

clear msd(): 

get 1ine(tmpstr) 

text put string(0, 15, tmpstr) : 
get 1ine (tmpst と ) 

text put string(1, 16, tmpst て と) : 
get 1ine(tmpstr) 』 

text pu string(1, 17, tmpstr) : 


/* 選択 され た ほう の ラベ ル を 検索 対象 に 設定 */ 

1 = se]ec () : 

if(1 == 1) [ 
Strcpy (tmpstr, strchr(Str, !(!) + 1): 
*strohr (tmpstr,。 「/!) = "WM07 の 

] 、 

else { 
StrCpy (tmpstr, StrcChr (str, !/『!) 十 1)』 
ネ gE を Chr (EpSEr。 「)") = *'W0* ょ 

} 

ump_1abe1 () : 

clear msg()z 


/3- ジ ャ ンジ ィ / 

el1se 1E(!strncmp(str, "goto(", 5)) { 
strocpy (tmpstr, strchr(str, 「(") + 1)j: 
EChE(EmPS も EE/。 79 7) ニー 人 学 095 
jump_1abe1 () : 


/* 条件 分 岐 */ 


else ifE(!strncmp (Str, "if("/。 3) ) [{ 
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strcpy (tmpstr, strochr(str, 「(") + 1): 
*strohr (tmpstr, !「。!) ニ " ぎ 0 5 
if(ca1cu1ate () ) { 

Ssrocpy (も mpstr, strchr (str,。 「,/") 二 1)』 

*strohr (tmpstr, 「)「) = ニー"W07: 

jump 1abe1 () 


/* 代入 式 */ 

else if(1ine state == ASSTGT) { 
Strocpy (tmpstr, Str) : 
calcu1ate () : 


/* メッ セー ジ の 表示 */ 
el1se 【 
text put string(0, msd 11ne, Str) 
key_wait up(KEY A): 
m8g_11ne++: 
if(msg 1ine == 18) 
clear msg()z 


/* エラ ー メ ッ セ ー ジ を 表示 し て 終了 */ 
void script error(char far *msg) { 
text put strind(0, 0, msg) 
key_ wait up(KEY AA) 

bios_ exit() 


/* tmpstr に 設定 され た ラベ ル に 飛ぶ */ 
void ]ump 1abe1() { 
NE 下る 


/* 検索 対象 が 特別 な ラベ ル だ っ た 場合 の 処理 */ 
if(!strcmp (tmpstr, "end") ) 

bios exit(): 
if (! stromp (tmpSt エ , "nu11") ) 


returnz 
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/* スク リプ ト を 先頭 か ら 1 行 ずつ 調べ て , 該当 する ラベ ル ま で 行く */ 
now Pon = scr1ip: 
while((1 = get 1ine (str) ) != END LABET  &g strcmp(Str + 1, tmpstr) ) 
1f (1 == END LABEL ) 
script error(" 和 存在 し な い ラ ベル が 呼ば れ て いま すり ): 


/* script デ ー タ か ら 1 行 取得 
空 行 は 読み 飛ば し , 行頭 の 空白 と () 内 の 空白 は 詰め る 
行頭 が A 一 2 な ら , 代入 式 と 判断 し て 空白 を 詰め る */ 


tnt get 1ine(char far *str) { 


char 人 rimz 


pboho 


do { 
for(1 = 0, trim = Ox02: *now point != Ox0d gs& 1 < STRTNG MAX: 
ュ ++, now_ Point++) [{ 
1f(*now Point ==「(『) 
trim |= 1: 
else 1f(*now Point ==「")『) 
trim &= Oxfez 
else 1f(trim gg (*now po1nt == "' ! || *now point == '\E り )) { 
エーー: 
Continuez 
} 
e1se 1f(trim g Ox02 gs *now point >= "!A' gg *now Point <= !Z!) 
trim |= Ox04: 
trim g= Oxfdz 
Str[1] = *now poin: 
} 
1F(1 == STRTNG MAX) 
script error("1 行 が 長 過ぎ ます "): 
SEF[ ユ ] ニ " 学 0"> 
now_ pont += 2: 
) while(!str1len (str) ) 


(skLrcmp (st エ 。 ":sEart") ) 
Feturn START LABEL: 

else ifF(!strcmp(str, "zend") ) 
return END LABET: 

else if( た rim & Ox04) 
return ASSTGT: 

ら 18G 
return 0: 
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/* 選択 肢 を 選ば せる */ 
int select() { 
int 1  y= 128: 


sprite set 1ocation(0, 0, ): 
while(!((1 = key wait() ) & KEY A)) { 
1f(1 & KEY X1) 


y = 128: 
el1se ifF(i e& KEY X3) 
y ーー 136: 


sprite set 1ocation(0, 0, ): 


sprite se 1ocation(0, 224, 144): 


if(y == 128) 
return 1 
e1sSe 
return 2 ヶ 


/* メッ セー ジ エ リ ア を クリ ア す る */ 
void cear msg() ( 
AE 3 すう:/ 


msg 1ine = 15: 
Eo ご 5》 半 で -、8 テ コキ) 
EE 光 3 20 が すこ 2 の 8 が すす) 
text put string(], ュ 1, "の ): 


/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
int key wait up(int mask) { 
1nt Fe: 


whi1e(!((ret = key wait() ) & mask) ) 
while(key presS Check() & re): 


eurn r エ G 巧 : 
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7-6 | postfix.c 


/* 
スク リプ ト に お ける 数 式 処理 
*/ 


#1nc1ude < く string.h> 


#define SYMBOL MAX 16 
#define STACK MAX 32 


/* 数 式 の 要素 (トー クン ) を 表現 する 構造 体 */ 
typedef struot { 
int type:  /* 数 値 , 変数 , 演算 子 の 種別 */ 
1nt Varz /* 値 */ 
) tokenz: 


token now token, 1, 2, token stack[STACK MAX] : 
1nt stack poin, sr point: 


/* 数 値 , 変数 以外 に 数 式 中 に 表れ る 要素 */ 


char symbo1] name[SYMBOL MAX][3] = { 
Lu い 有 】 肖 山 絹 ーー だ マル > Eu 
LU 大 し 人 ーー だ で か uu 月 bi 抽 AU 


} 


extern ohar tmpstr[] 
extern in soript Var[] 


Vo1d set var(token *): 
vo1d pop stack(token ょ *) : 
Yo1d push stack(token *) : 
votd read token () 

vo1d faoctor1 (vo1d) : 


extern VO1d ScCript error(char far *): 


/* トー クン が 変数 の 場合 , 現在 の 値 を 取得 ょ / 
Void set var(token *tk) { 
1f (tk->tyPpe >= "A' g& tkK->type <= "2Z!) 
tk->var = SCr1ipt Yar[tk->tyDpe 一 "AA']: 


/* スタ ッ ク 操 作 pop ス タッ ク か ら ト ー ク ン を 取り 出す */ 
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Void pop staock(token *Ek) { 
StaCk po1n キ ーー: 
if(stack point < 0) 
script error(" 数 式 処理 :. ス タッ ク に 値 が あり ませ ん "): 
tk->type = token stack[stack poin] .tyDez 
tk->var ニ token stack[stack po1nt] .Varz 


/* スタ ッ ク 操 作 pusnh ス タッ ク に トー クン を 積む */ 
void push stack(token *tKk) { 
token stack[stack po1nt] .type = 上 k->tYDGz 
token stack[stack po1nt] .Var 三 上 K->Ya エ : 
Stack DO1n キ ++: 
1F(stack pon >= STACK MAX) 
script error(" 数 式 処理 : ス タッ ク が 溢れ まし た ") 


/* 数 式 の 字句 解析 数 式 を 表す 文字 列 か ら , 数 式 の 要素 (トー クン ) を 取り 出す */ 
void read token() { 
nt 1: 


/* 演算 子 。 も し く は “()” か 調べ る */ 
For(1 = 0: 1 < SYMBOL MAX: i++) 
1f(!strncmp(tmpstr + str poirt, symbpo1 name[1i], 
str1en (symbo1 name[i]))) { 
now て token .EyDe = symbo1 name[i] [0]: 
if(strlen(symbo1 name[i]) == 2) 
now token . 上 YDe 
= (symbo1 name[i][0] << 8) | symbo1 name[1] [1]』 

now token.Var = 0: 
S エ point + ニ = str1en(symbo1 name[1]): 
retuFrn: 


/* 変数 か 調べ る ょ */ 

1f(tmpstr[str point] <= 'Z' gg tmpstr[str point] >= 'A') 【 
now token.type = tmpstr[str Poin] : 
now token.var = 0z 
St エ DO1int++。 


returnz 


/* 数 値 か 調べ る */ 
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1f (tmpstr[str point] <= "9! gg tmpstr[str point] >= "0') 【 

for(1 = 0, now token.var = 0: 
tmpStr[ Str poin モ + 1] <= "9' gg tmpstr[str point + ュ ] >= "0 
ュ ++) { 
now token.Var メ = 10: 
now token .Yar += (tmpstr[str point+i] - "0!): 

) 

now token.type = 0: 

Str point += 1 ュ : 


と eturn ァ 


/* 数 式 が 終わ りか 調べ る */ 

if (tmpstr[str point] == '\0!) { 
now token .type = -1 ヶ 
now token.Yar = 0: 


returnz 


/* 上 記 い ずれ で も な けれ ば ぱ ば , 数 式 に 問 違っ た 文字 が 混入 し て いる ょ */ 
script error(" 数 式 処理 : ト ー ク ン が 分 離 で きま せん ") : 


/* 数 式 の 構文 解析 */ 


/* factor6 と は factor1 が 『()” で 括 ら れ た も の か , 数 値 か , 変数 で ある */ 
void faotor6() { 
if(now token.type == 『'(") { 
read token () : 
ま aGEor1() 
if(now token.type == 『)'!) 
read token () 
ら @13 ら 6 
script error(" 数 式 処理 : () の 不一致 が あり ます ") : 
} 


elLse 1f(now token . tyDe == 
11 (now_token.type >= "A' gg now token .type <= "ZZ')) 【 


push stack(gnow token) 
read token () : 


} 
e1Se 


script error(" 数 式 処理 : 不 正 な トー クン が 使用 され て いま す ") : 
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/* Factor5 と は factor6 が 1 つか “*" の /" "5" で 結ば れ た も の で ある 
void factor5() { 
factor6 () : 
while(1) 【{ 

エエ 人 (noOw も Okem:EYpe: デー "YY9) 【 
read token () 
factor6 ( ) 
pop Stack (&2) : 
Pop_Sstack (st1 ) 
Set Var(&1): 
Set var (&2): 
t1.type = 0 
上 1 .Var *= 七 2 .Yar: 
push stack(&1) 

} 

else ifF(now token.type =="'/) ( 
read token() 
factor6 ( ) : 
Pop_Staok (&2) 
pop_Stack(& ぁ 1 ) 
Se Var(&] ) 
set Var(s2) : 
t1.type = 0: 
t1 .var /= 2.YVar: 
push Stack(&1) : 

} 

else 1f(now token.type == "も !) { 
read token () 
factor6 () 
pop staok(&2) 
pop Staock (st1) 
Set Yar (&1): 
set Yar(& キ 2): 
t1 .type = 0 
上 1 .Var も = 上 2 .a エ 。 
push stack(&t1) 

) 

に 時 
break: 


/* factor4 と は factor5 が 1 つか “"+" "ーー" で 結ば れ た も の で ある +*/ 
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7 


vo1d faotor4() { 
factor5() 


while(1) 


{ 


if(now Eoken .tyDe == ーー"+') { 


) 


read token() : 
factor5 () : 

Pop_ stack (&t2) : 
Pop_Stack(& て 1 ) 
Set var(&t1) : 
Se var(&2) : 
t1.type = 0: 


t1 .Var + ニ = 七 2 .Yarz 


Push staok (&t1) 


else if(now token .tyDe == ーー-") { 


) 


read token() : 
factor5 () : 
pop_Staok(&2) : 
Pop_stack(&1) 
set Var(&t1): 
se Var (&2): 
t1.type = 0: 


も 1 .。 ザ a 呈 ー 上 2、 ツ aE ぁ 


push stack(&1) 


e1se 


/* Factor3 と は factor4 が 1 つか 


breakz 


ce 


結ば れ た も の で ある 
void factor3() { 
factor4 () 


while(1) 


{ 


で 
/ 


if(now token . も ype == ("=' | ("= テリ) < く < 8) ) ) { 


read token () 
factor4 () : 
DoPp_Stack (st2) : 
pop_SEack(&1) 
Set var(& 上 1) : 
Se 七 Var(&2) 
t1.type = 0: 


上 1 .var = (1.Var == 2 .Yar) 
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push stack(&t1): 
} 
e1Lse 1E(now token -tYDe == "< く !) ( 
read token () 
factor4 () 
pop Stack (st 上 2) : 
pop stack(&1 ) : 
Set Var(g1) 
Set var(&2) : 
t1 、type = 0: 
て 1 .Yar = (上 1.yar く 2 .Ya エ ) 
push stack(&t1) 
} 
else ifE(now token.type == ("= テリ) | (< < く < 8) ) ) { 
read token () 
factor4 () 
pop Staok (&2) ヶ 
Pop Stack(&1) 
Se Var(&1): 
Set Var (&2): 
t1.type = 0: 
t1 .var = (t1.Var <= 七 2.Yar) 
Push sack(st1) : 
} 
else 1f(now token.type ==ー >!) { 
read token ( ) 
faotor4 () 』 
Pop Stack (st2) : 
pop_ Stack(&t1) : 
Se て Var (&1) : 
Se て vVar(&2): 
t1.type = 0: 
t1.var = (て t1.var > 2.Yar) 
Push Stack (gs ) 
} 
e1se 1Ef(now token. モ type == ("= リ ) | (">! < く < 8) ) ) { 
read token () 
factor4 () : 
Pop_ Stack(s 革 2) : 
pOp_Stack (st1) 
Set var(& 上 1) 
set var(&2): 
t1.type = 0z 
七 1 。yaY 三 (上 1。Var >= 上 2。Var) 
push stack(st1) 
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} 
elLse if(now token .type == ("= テリ! | ("1) << く 8))) { 
read token () : 
factor4(): 
pop_Stack(&2) : 
pop Stack (gt1) : 
Se て Var(&t1) : 
Se vVar(&2): 
t1.type = 0 
上 1.var = (1.yar != 2 .YVar) : 
push staock (st 上 1) 


/* factor2 と は factor3 が 1 つか “gg” “| で 結ば れ た も の で ある */ 
void factor2() { 
factor3() : 
white(1) { 

if(now token.type == ('g' | ("&' << 8) ) ) { 
read token ( ) 
factor3() 
pop staok (st2) : 
pop staok (st1 ) : 
Se て Var(&1 ) 
Set var(&t2)。 
t1.type = 0z 
t1 .Var = (1.Var &e 上 2.YVar) 
push stack(&1) 

} 

else 1fF(now token.EYpe == (1!) 1 ("中 1) << 8)) ) { 
read token () 
factor3(): 
Pop Stack(&t2) : 
pop stack (st1) > 
Set var(&1) 
set var(&2) 
t1.type = 0z: 
や 12MAP 三 (EL。Wa で II も 2、waf) ょ 
push stack(&t1) : 


e1Se 
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break: 


/* factor1 と は factor2 が 1 つか “=” で 結ば れ た も の で ある */ 
void factor1() { 
factor2 () 
while(1) { 
1E(now token .tyDpe == =!) { 
read token () 
factor2 () : 
pop stack(&2): 
pop Stack(&t1) : 
Ei( も せま 。EyBG る "人 "ET。EyPe タウ 2 
script error(" 数 式 処理 : 代 入 先 が 変数 で は あり ませ ん "): 
set Var (&2) 
Script var [て 1 .type 一 'A'] = 2.Yar: 
t2.type = 0: 
push stack(gst2) : 


/* tmpstr に 設定 され た 文字 列 の 数 式 処理 */ 
in 人 calcu1ate() { 

stack point = 0: 

Str point = 0: 


/* 数 式 と は Factor1 で ある */ 
read token () 
actor1 () 


/* 式 の 値 を 取得 */ 
pop_Stack(s1) 』 


return 上 上 ]1 .Ya エ ょ 
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9 も っ と 改良 し て みよ う 


adv8.c (List 7-.5) に さま ざま な 改良 を 施せ ば , も っ と 高 機能 な ADV プ ログ ラム に 仕 
で の こと の で きま ずら 

命令 の 追加 を 行う な ら , 画面 を 揺らす 命令 や , BGM, SE, 音声 を 鳴ら す 命令 な ど が 
ある と 便利 で し ょ う 。 

数 式 処理 を 拡張 する な ら , も っ と 多く の 演算 子 (た と えば , 単項 演算 子 “-” な ど ) 
を サポ ー ト で きれ ば , 変数 を より 自由 に 使う こと が で きま す 。 

また , スク リプ ト フ ァイル や 画像 ファ イル な ど を , リソー ス デ ー タ と し て 実行 形式 
ファ イル に パッ キン グ す る よう に で きれ ば , た くさ ん の ファ イル を 転送 する 手間 が な 
く な る の で 便利 で すね 。 最初 に リソー ス を 探し , 見 つか ら な か っ た ら フ ァイル を 探す 
と し て お け ば , ADV の 開発 中 は ファ イル ベー ス の 実行 環境 を 使い で きた ADV を 配布 
する と き は リソー ス に まとめ て ファ イル 1 つ だ け で 配布 する こと が で きま す 。 

最初 か ら あ れこ れ 考 え ず , 実際 に ADV を 作る 途中 で , 欲し く な っ た 機能 を つけ 足し 
て いっ て も よい で し ょ う 。 

あな た も 萌え 萌え な ギャ ル ゲ ー (健全 ) を 作っ て , その 筋 の 人 た ち を 喜ば せ て みて 
くだ さい 。 
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クイ ズ ゲ ー ム は , 雑学 の 知識 や ヲタ ク な 知識 を 楽し ませ て くれ ます が , 勉強 を し た 
い 人 に と っ て も , 力強い 味方 に な っ て くれ ます 。 そ も そ も 試 験 っ て クイ ズ な ん で すか 
ら 。 

クイ ズ そ の も の は , ミニ ゲー ム の よう に , ちょ っ と し た 空き 時 間 を 利用 し て 楽し め 
る も の で す 。 電車 の 中 で クイ ズ の 本 を 読ん で いる 人 も いる で し ょ う 。 コ ンピュータ ゲ 
ー ム と し て クイ ズ を 楽し む 場 合 も , WonderSwan な どの よう な 携帯 ゲー ム 機 で . ちょ っ 
と し た 空き 時 間 に 遊 べ る の が 理想 で す よ ね 。 

そこ で , WonderWitch を 使っ て クイ ズ ゲ ー ム を 作っ て み ま し ょ う 。 


クイ ズ の 問題 を 確保 する 


クイ ズ ゲ ー ム に お ける 重要 な 要素 は , いか に し て 問題 を 確保 する か と いう 点 に 尽き 
ます 。 ど ん な に よく で きた クイ ズ ゲ ー ム の プロ グラ ム で も , 問題 が た くさ ん 用 意 さ れ 
て いな けれ ば , あま り 遊 べ ま せん 。 世の中 に は クイ ズ の 問題 を 作る の が 好き な 人 も い 
ます が , それ 以上 に 問題 を 出さ れ た い 人 の ほう が 多い の で , 問題 を どう や っ て 確保 す 
る か を 考え て や ら な けれ ば な り ま せん 。 

この 「 ク イズ の 問題 ] を 確保 する と いう 間 題 は . すでに 世の中 で 遊ば れ て いる クイ 
ズ ゲ ー ム の 問題 デー タ を 使う よう に すれ ば , 解決 で きま す 。 た くさ ん の 人 が 遊ん で い 
て , 問題 デー タ も 大 量 に 用 意 き れ て いる クイ ズ ゲ ー ム の , WonderWitch 版 を 作る わけ 
おっ 

そう 考え て , 多く の 人 が 遊ん で いて , 問題 デー タ が 大 量 に 用 意 き れ て いる クイ ズ ゲ 
ー 還 を 所 で か る と 。 | ご た く 」 に た どり 作ら と と が で きま チチ 。 


ご た く | は 、 Q 舎 氏 に よっ で て オリジ ナル が 作ら れ た だ クイズ ゲー ム で す 。 歯 さ れ た 同 
題 に 対し て 5 つの 選択 肢 が 提示 きれ, その 中 か ら 解 答 を 選び ます 。「 ご た く 」 と いう 名 
前 に は 「5 択 ] と 「 御 託 が か か っ て る ん で すね , タブ ン 。MS-DOS 版 を は じ め , 
Windows,。 MacOS な ど さ ま ざま な プラ ッ ト フ ォ ー ム 上 で 動作 し ます 。「 ご た く 」 に は , 
その 歴史 が 長い こと と , さまざま な プラ ッ ト フ ォ ー ム を サポ ー ト し て いる こと , 問題 
を 作る 環境 が 整備 され て いる こと な どか ら , た い へ ん 多く の 問題 が 存在 し て いま す 。 
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「 ご た く 」 に お ける クイ ズ の 問題 は , 専用 の フォ ー マ ッ ト を も っ た デー タフ ァイル の 
形 で 供給 され ます 。「 ご た く 」 の プロ グラ ム は , その 問題 ファ イル を 読み 込ん で クイ ズ 
を 出題 し ます 。 

この よう に 。 ブ プロ グラ ム A と デー タ (コン テン ツ ) を 分 け で いる の 入 。 Web ズ ラウ が 
と html デ ー タ の 関係 と 同じ で , プロ グラ ミン グ で き な い 人 で も コン ピュ ー タ 上 で 何 か 
を 表現 可能 に する た めで す 。 先ほど の ADV プ ログ ラム と スク リプ ト の 関係 も 同じ で す 
ね 。 多く の 人 が コン ピュ ー タ を 使う 時 代 に な り ま し た が , プロ グラ マ に し か 使え な い 
も の は , 多く の 人 に 利用 し て も ら え ませ ん 。 多く の 人 に 使っ て も らい た い ソ フト を 作 
る と き は この 点 に 注意 し まし ょ う 。 


Table 8-1 各種 シス テム に お ける プロ グラ ム と デー タ 


問題 ファ イル を 読込 
ん で 動作 する gotaq.c 


スク リプ ト , 画像 デー タフ ァイル | 問題 ファ イル 


まず は 下ごしらえ 


大 量 に 存在 する 「 ご た く 」 問題 ファ イル を その まま 流用 で きる よう に , 「 ご た く 〈 く | の 
WonderWitch 版 を 作成 し まし ょ う 。 さ て , どの よう に 作っ て いけ ば よい で し ょ うか ? 


: 疫 「 こ ご たく 」 問題 ファ イル の デー タフ ォ ー マ ッ ト 


まず 最初 に , 問題 ファ イル か ら 間 題 デ ー タ が 読み 出せ な いと いけ な い の で , デー タ の 
フォ ー マ ッ ト を 理解 する こと に し ます 。「 ご た く 」 問題 ファ イル の デー タフ ォ ー マ ッ ト 
(Fig.8-1) は , Windows 版 「 ご た く Classic」 (付録 CD-ROM に 収録 ) の ヘル プ や , 山田 泰 
資 氏 の 「 ご た く 開 発 キ ッ ト 」 (付録 CD-ROM に 収録 ) に 含ま れる 解析 資料 に 詳細 が あり 
ます 。 

これ ら を 見 る と , 「 ご た く 」 問題 ファ イル は 256 バ イト を 1 ブロ ッ ク と し て 扱い , 先頭 
8 ブロ ッ ク に ジャ ン ル に 関す る 情報 が 書か れ て お り , 9 ブロ ッ ク 昌 以降 に 問題 と 5 つの 選 
択 肢 が 収め られ て いる ブロ ッ ク が ある と わか り ま す 。 
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「 ご た く 」 問題 フ ア ァイル の デー タフ ォ ー マ ッ ト 


ジャ ン ル 情報 3 
口 や 
ロウ ウ 8 問題 ブロ ッ ク 


256 バ イト 256 バ イト 
ジャ ン ル 情報 ブロ ッ ク は 必ず 8 個 存 在 する 


問題 ファ イル 


* ご た く 


問題 ブロ ッ ク 


ご た く 問 題 フ ァイル の サイ ズ は 、( 全 問題 数 十 8) X256 バ イト と な る 
・ ジ ャ ン ル 情報 ブロ ッ ク 


ジャ ン ル 名 シン が プレ ィ ャ ID 予備 
文字 列 の 終端 は この ジャ ン ル | 問題 の 先頭 位置 ー | ファ ィ ル が ご たく 隊 1 5 
0 で は な く 、 終 ファ イル の 先頭 | デー タフ ァイル 名 | ファ ィ ル で ある こと を 0 
端 以降 が Ox20 か ら の ブロ ッ ク 磁 $ す る た め に 使う する た め ・ 
(空白 スペ ー ス ) 数 ( 実 バイ ト /56) (WW 仮 で は 未 使 用 ) ビ 

16 バ イト 2 バイ ト 2 バイト 2 バイ ト 12 バ イト 8 バイ ト 214 バイ ト 

(16 ビ ッ ト 整 数 型 ) (16 ビ ッ ト 整 数 型 ) 
・ 問題 ブロ ッ ク 
正解) 
116 バ イト 28 バ イト 28 バ イト 28 バ イト 28 バ イト 28 バ イト 


問題 ブロ ッ ク の 各種 文字 列 は 、OxB80 で XOR さ れ て いる 
また 文字 列 の 終端 は *O' で は な く 、 終 端 以 降 が 0x20 (空白 スペ ー ス ) と な る 


ジャ ン ル 情報 プロ ッ ク は , ジャ ン ル ご と に 1 つ ず つ あ り , ジャ ン ル 名 , 問題 数 , この 
ジャ ン ル の 最初 の 問題 が 何 ブ ロッ ク 目 に ある か , と いっ た 情報 が 入っ て いま す 。 

問題 文 と 選択 肢 を 収め た 問題 ブロ ッ ク で は , つね に 1 つ 目 の 選択 肢 が 正解 に な っ て い 
ます 。 ま た 、 す べ て の 文字 列 に は 0x80 で XOR (排他 的 論理 和 ) が か けら れ マ スク ( 砂 
べ い ) され て いま す 。 

こう し た 情報 か ら , List 8-1 の よう な 定義 が あれ ば , 「 ご た く 」 問題 ファ イル を 読み 出 
し て 利用 する こと が で きる と 考え られ ます 。 


: 立 問題 ファ イル を 選択 で きる よう に する 


実際 に WonderWitch で |「 ご た く 」| を 遊ぶ と きのこ と を 考え る と , WonderWitch に 詰 
め 込 め る だ け 問 題 フ ァイル を 詰め 込ん で 遊べ る と よい で すね 。 そこで , WonderWitch 
に 複数 の 問題 ファ イル を 転送 し て お いて , プロ グラ ム 上 か ら フ ァイル を 選べ る よう に 
し まし ょ う 。 WonderWitch 上 に , どの よう な ファ イル が ある か 調べ る に は , どう すれ 
ば よ ゅ でしょ うか ? 
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List 8-1 「 ご た く 」 問題 デー タフ ォ ー マ ッ ト の た め の 定 義 


/* ご たく 問題 デー タフ ォ ー マ ッ ト 関 連 */ 


#define GENREHEAD COUNT 8 
#deFine OMASK 0x80 


typedeFf struc { 


unsiqned char npszName[16] : /* ジャ ン ル 名 */ 
1nt reserVed 1。 
int nCount:』 /* 当該 ジブ ャ ィ ン ル の 問題 数 */ 
1nt Offset: /* 当該 ジャ ン ル の 先頭 位置 */ 
unsigned char npsz5td[12] /* プレ イヤ ー デ ー タ ファ イル 名 */ 
unsigned char npSzTD[8]: /* TD("5TAKUODT") テ / 
unstgned char reserved 21[258-18-2-2-2-12-8]: 

) GENREHEAD: 


typedefF struot { 


unsigqned char szOuiz[116], /* 問題 文 */ 
unsigned char szList[5] [28]: /* 選択 肢 文 */ 
) OSCRIPT: 


> 容 findfirst(), findnext( ) 

Windows も 含め た MS-DOS 系 列 の OS で は , ほぼ すべ て の CC 言語 開発 環境 で , 
findfirst(), Eindnext() と いう , ディ レク トリ 内 の ファ イル を 調べ る 関数 を 利用 
で きま す 。 findgfirst(), Eindnext() で は , 指定 し た ディ レク トリ , 名 前 , 属性 を 
も っ た ファ イル の 情報 を , 順番 に 取り 出せ る よう に な っ て いま す 。 1 番目 の ファ イル 情 
報 は Eindfirst () で 取得 で き , 以降 , 条件 に 合う も の が な く な る まで fingnext () で 
取り 出せ る 仕組 み に な っ て いま す 。 

この 仕組 み を , WonderWitch 用 に アレ ンジ し て 実装 し た も の が , dir.c (List 8-3) 内 
の fingfirst() , Eindnext() に な り ま す (Function 8-1) 。 


Function 8-1 ワン ダー ウィ ッ チ 用 の findfirst(), findnext() 
1n finmdfF1rgSE (Cha エ Fa * り a と 万 amG, FGn 上 上 上 a エ て メチ ら 6 と り , 1n 上 上 a と と テテ 了 ち ) 


引数 ォ pa と nname ・ 探す ファ イル の 位置 や 名 前 
*fen と rp: 見 つけ た ファ イル の 情報 を 格納 する 場所 へ の ポイ ンタ 
a を と ri ち (探す ファ イル の 属性 


居 条 | 見 つか っ た ら 0。 見 つか ら な か っ た ら -1 


まず は 下ごしらえ 還 219 


ュ nE findmex 上 (Fenm 上 Fa て メチ ら 6p と の ) : 


中 数 *rencp: 見 つけ た ファ イル の 情報 を 格納 する 場所 へ の ポイ ンタ 


最 値 | 見 つか っ た ら 0。 見 つか ら な か っ た ら -1 


= 構造 体 fent 1 型 

WonderWitch で は , <sys/filesys.h> に , ファ イル に 関す る 情報 を 格納 する 構造 体 
fent て 型 が 定義 され て いる の で , この 構造 体 に し ファ イル の 情報 を 取り 出せ る よう に 
し まし た 。 構造 体 Eent t 型 を 要約 する と , List 8.2 の よう に な り ま す 。 


List8-2 構造 体 fent 型 


typedef struc sa { 


char name[] /* ファ イル 名 */ 
flen t 1en: /* ファ イル サイ ズ */ 
int count:』 /* ファ イル が wonderWitch 上 で 使用 し て いる */ 


/* メモ リブ ロッ ク 数 */ 
/* -1 な ら フ ァイル は 存在 し な い */ 


Fmode 上 mode: /* ファ イル 属性 */ 

time t mtimez /* 最終 更新 日 時 */ 

fpos 上 resourCe: /* リソー ス が 含ま れ な けれ ば -1 */ 
) fent t: 


また ファ イル 属性 と し て 使用 で きる シン ボル で , よく 利用 し そう な も の と し て は 


FMODE X な 実行 可能 

FMODE_W な 書き 込み 可能 7 

FMODE R な 読み 出し 可能 

FMODE MMAP だ た mmap() に よる アク セス の 禁止 


と いっ た も の が あげ られ ます 。 こ れ ら は 論理 和 に よっ て 結合 し て 扱う こと が で きま す 。 
findfirst() に 与え を る ファ イル 属性 の 条件 も , これ ら の シン ボル を 用 いて 指定 し ま 
す 。 

Findfirst() に 与え を る ディ レク トリ , ファ イル 名 の 条件 は , “"/rom0/dir.c"" 
と いっ た 具合 に , パス 情報 に し て 渡し ます 。“"/rom0/*.5tq"" と いっ た よう な ワイ 
ルド カー ド に よる 条件 指定 も , 簡易 実装 に よっ て 実用 レベ ル を クリ ア し て いま す 。 
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ーー っ 


、。 Hst8-3 dirc 


/* 
WonderWitch 版 Eindfirst (), Findnext () 
た 


#inc1ude <string.h> 
#1nc1ude <sys/fFocnt1 .h> 
#1nc1ude <sys/bios .h> 


char ff str[MAXPATHLEN] , Ff dirname [MAXPATHTLEN] 
1nt ff Count: 

fmode 上 ff mode: 

1nt ff entriesz 


/* str 内 に substr が 存在 する か 調べ る */ 
char far *strs 人 tr(char far *str, ohar far *substr) { 


守 机 も 。 


for(1 = 0 1 < str1en (str) : ユ ++) 
1f(str[1] == substr[0] gg !strncmp(Str + i, subst ェ , 
Str1en (substr) ) ) 
return St 上 F 十 1: 
return NULL 


/* findfirst() に 続け て , 同じ 条件 で ファ イル を 取得 */ 
1nt findnext(fent t Far *Fentp) { 


/* ファ イル を 順次 探す */ 


for(/ ff count < ff entriesz ff Coun セ ++) 


/* ファ イル の 情報 を 取得 し */ 
1f (getent(Ff dirname, FEfF Count, fentp) == E _FS_ SUCCESS 
/* その ファ イル が 存在 し て いて */ 
&& fentp->Coun != ーー1 
/* 検索 条件 に 合っ た 属性 で */ 
ss (fentp->mode sg ff mode) 
/* ファ イル 名 の 部 分 文字 列 が 指定 され て いな いか +*/ 
gg (Strlen(Ff St 上 て) == 
/* 指定 され た ファ イル 名 の 部 分 文字 列 が , 
その ファ イル の 名 前 に 含ま れ て いる と き */ 
11 strstr(fFentp->name, ff str) != NULL) ) { 
FT COun キ ++』 
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/* その ファ イル は 条件 に 合っ て いる */ 


return 0 


/* 条件 に 合っ た も の が な か っ た ら -1 を 返す +*/ 


return -1: 


/* 指定 され た ディ レク トリ , ファ イル 名 , 必 性 を 持っ た 最初 の ファ イル を 取得 ょ / 
int findfirst(char far *pathname, Fen 上 上 fFar *fFentp, in at て tr1b) 


ots 和 ip 叶 


/* 探す ディ レク トリ を 取得 */ 

Strcpy(Ef dirname, pathname) 

* (strrchr(FfF dirname, "/") + 1) = 10M 

/* その ディ レク トリ が な か っ た ら , -1 を 返す */ 

1f((Ff entries = nument(FfF dirname) ) = ニニ E _FS FILE NOT FOUND) 
GEUED =12 


/* 探す ファ イル 名 を 取得 ょ / 
strcpy(FF str, strrohr(pathname, 「/') + 1)』 
/* 「*」「?] を 取り 除い た 文字 列 を 探す ファ イル 名 の 部 分 文字 列 と する */ 
Oi( は 、 王 '10z EE gi[ 届 ] 。、》 三 !\07 エミ ォ +) 
中 名 (EE SE = RI ま SE ニー219- 1 
SEEGP (GE SE キ /。 持 在 SEE や エ 寺 1 


出 二 こ 
Ef mode = attr1Db: 
EE count = 0 


/* 実際 に 探す の は Eindnext() */ 


return findnext (fentp) : 
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Function 8-2 ファ イル 関連 の 関数 

nt numenE (Cong 寺 Char Fa * ェ テロ amG) : 

衣 粗 | *gjirname: デ イィ レク トリ 名 を “"/rom0/""”" な ど と 指定 する 
返 値 取得 し た ファ イル エン トリ 数 か , E FS FILE NOT FOUND 


叶 崩 | 指定 し た ディ レク トリ の ファ イル エン トリ 数 を 返し ます 。 フ ァイル エン トリ 数 と は , 
その ディ レク トリ に 存在 で きる ファ イル の 最大 数 に な り ま す 。 指定 さ れ た ディ レク 
トリ が 存在 し な い 場 合 は , E Fs FTLE NOT FOUND が 返り ます 。 


in geten (corngt char far *# ァ と name, 1n ヒ 了 n ロ de, 
S 七 て い UC 七 Sa 七 Fa エエ 5 と a と た ちり u 了 ) : 


中 粗 。 *girname: デ イレ クト リ 名 を “"/rom0/"”" な ど と 指定 する 
ngex : 対象 と な る ファ イル エン トリ 番号 
*5 を a と わ u 了 ・ 取得 し た 情報 を 入れ る 領域 


返信 E FS SUOCCESS, E FS FTLE NOT FOUND, E FS OUT OF BOUNDS 


科 能 | 指定 し た ディ レク トリ 内 に ある , 指定 し た ファ イル エン トリ 番号 の ファ イル の 情報 
を , 指定 し た 構造 体得 ます 。 struct stat 型 は , Eent t 型 と まっ た く 同 じ 型 の 
構造 体 で す 。 デ イィ レク トリ 内 に は , nument() で 取得 さき れる ファ イル エン トリ 数 分 
の ファ イル エン トリ が 存在 し , それ ら お の お の の 情報 を 取得 する の に , getent () 
を 使用 し ます 。 
情報 の 取得 に 成功 し た ら E FsS_ SUCCESS が , 指定 ディ レク トリ が 見 つか ら な い 場 合 
は E_FS FILE NOT FOUND が , 指定 ディ レク トリ の ファ イル エン トリ 数 の 範囲 を 超 
えた ngex だ っ た 場合 は E FS_ OUT OF BOOUNDS が , それ ぞ れ 返り ます 。 フ ァイル 
エン トリ 情報 が 取得 で き て も , 実際 に その ファ イル が 存在 する か どう か は , 取得 し 
た 構造 体 の メン バ count を 見 て , -1 で な いこ と を 確認 し な けれ ば な り ま せん 。 


これ ら の 関数 は <sys/fcntl.h> に 定義 され て いま す 。 


> 癌 findfirst(),findnext() を 使っ て みる 

findfirst() , findnext () の 内 部 処理 の 詳細 が わか ら な い 人 は , と りあ え ず , 通 
常 の ライ ブラ リ 関 数 と 同じ よう に 使っ て みれ ば よい で し ょ う 。 

た と えば dirsamp.c (List 8-4) の よう に 利用 し ます 。 


> 1cc86 -o dirsamp .bin dirsamp .C dr.C 


と し て コン パイ ル し , 実行 し て くだ さい 。 

dirsamp.c で は , rom0 領 城 に ある 読み 出し 可能 な ファ イル に 関す る 情報 を 順次 取得 し , 
ファ イル 名 を 表示 し ます 。 dir.c の 内 部 の 処理 の 詳細 が わか ら な く と も , findfirst(), 
findnext () を 通常 の ライ ブラ リ 関 数 の よう に 使え を る こと が わか る で し ょ う 。 
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放 記 肖 dirsamp.bin の 実行 画面 


| 


ピピ ニー ピピ テテ テ 


や ロロ mm ヨ mmmm mmmmm 
(て カゴ コー に の ゆで (の (00( の WM の 缶 の 純 記 | 
この 還 ビ コ +* ココ コキュ ココ ココ コ 
ト や コロ ロ い ユー ユーーーーー こ の 

” の ロー ロロ ニー mnO ロビ ロロ 


ロロ ら XS の の 町 " " " 
G+") ) ) ) ” 


DOG ミコ ささ コー は ココ ーー ロ 


: 


List 8-4 dirsamp.c 


/* 
findfirst(), findnext() in dir.c 使用 サン プル 


rom0 領 域 に 存在 する ファ イル の 一 覧 を 表示 する 。 
コン パイ ル は 以下 の と お り 。 
> 1cc86 -o dirsamp.Dbin dirsamp.C dir.C 
天 
の 


#1nc1ude <syS/FfFocnt1 .h> 
#1nclude < く sys/bios .h> 


extern 1n 上 FindfFirst(char far *, fent 上 far *。 im 人 ) ) 


extern nt findnext 上 (fent キト far *)』 


void matn() { 
過 全 民 、 まま 
fent 上 fent: 


tex screen ini(): 


/* rom0 領 域 か ら フ ァイル を 見 つけ て くる ォ */ 
for(i = findfirst("/rom0/*", &gfent, EMODE R), ] = 0: 
1 = findnext(&fEen) , ]++) { 


/* 見 つけ た ファ イル の 名 前 を 表示 */ 
text pu string(0, ], Fent.name) 


/* 18 行 表示 し た ら , ボタ ン を 待っ た 後 , 画面 を クリ ア */ 
常任 ー ま 光 ) 【 
key_ wait(): 
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tex screen 1n1 七 (): 
三 = ま > 


} 


key wait(): 


ご た く ワ ンタ ダー ウィ ッ チ 


dir.c (List 8-3) を 使っ て 問題 ファ イル を 探し , ご た く 問 題 デ ー タ フォ ー マ ッ ト 関 連 
の 定義 の 知識 を 使っ て 問題 デー タ を 取得 で きれ ば , クイ ズ ゲ ー ム が 作れ ます 。 

こう し て 作成 し た の が gotaq.c (List 8.5) で す 。 コ ン パ イル に は dir.c が 必要 に な り ま 
す の で , 


> 1cc86 -o gotaq.bin gotaq.C d1r.G 


と し て くだ さい 。 実行 に は , gotaq.bim と 一 緒 に , 「 ご た く 」 問題 デー タフ ァイル (添付 
CD-ROM に 収録 ) を , rom0 領 域 に 転送 し て くだ さい 。 


K パ gotaq.C の ポイ ント 


問題 デー タ に さえ アク セス で きれ ば , あと の 処理 は さほど 難し く は あり ませ ん が , 
ソー ス を 読む せ 上 で いく つか の 着目 点 を あげ て お きま す 。 


> 商 select(), key_wait_up() 

まず , ボタ ン 操 作 を すべ て se1ect() , key_wait up() に 集約 し て いる の で , この 
2 つ に , START ボ タン で 終了 する 処理 を 入れ て あり ます 。 ゲ ー ム を 止め た いと き に , い 
つ で も 終了 可能 に し て あり ます 。 

se1ect ( ) で は , 最初 の 項目 の 横 に 表示 する 座標 と , 矢印 を 動か す 幅 , 項目 の 数 を 
引数 と する こと で , 汎用 的 な メニ ュー 選択 処理 を 行え を る よう に な っ て いま す 。 あ な た 
が 自分 の プロ グラ ム の 中 で メニ ュー 処理 を 行い た い 場 合 に , 参考 に みる で し ょ う 。 そ 
の まま ヨコ ビー し で 使っ で も よい で し ょ よう 。 
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> 底 check string( ) 

問題 文 と 選択 肢 の 文字 列 を oMASK (0x80) で XOR し て 元 の 文字 列 に 戻し た あと に , 
check string () を 実行 し て いま す が , これ は 文字 列 を 前 か ら 順 に 見 て いき , 文字 と 
し て 正しく な いも の が 現れ た ら , そこ を 文字 列 の 終端 と する と いう 処理 で す 。 

な ぜ こ の よう な 処理 が 必要 か と いう と , 「 ご た く 」| の 問題 文 / 選 択 肢 の 文字 列 に は , 文 
字 列 の 終端 を 表す 記号 の 定義 が な いた めで す 。 デ ー タ 内 部 で は , マス ク さ れ た 文字 列 
の 後に 0x20 (半角 スペ ー ス の 文字 コー ド ) が 領域 いっ ぱい まで 並ん で いま す 。 

だ っ た ら , 0x20 の 列 と , その 前 の デー タ の 境目 を 終端 に 見 れ ば よい と 考え そう で す 
が , これ で は うま くい きま せん 。 な ぜ か と いう と , 元 の 文字 列 の 最後 の 1 バイ ト が 
0xA0 だ っ た 場合 (し か も , これ は あり 得る ) に , マス ク に よっ て 0x20 と な っ て デー 
タ に 格納 され る の で , 0x20 の 列 と 文字 デー タ の 0x20 が くっ つい て し まう の で す 。 境 
目 を 見 よう と する と , 最後 の 1 バイ ト を 捨て て し まう の で , 文字 列 が お か し く な り ま 
3 

そこ で gotaqac で は , すべ て の デー タ を XOR し て か ら , 前 か ら 文 字 と し て 正しい か を 
順に 調べ , あっ て は な ら な い 場 所 に 0xA0 が 現れ た ら , 文字 列 以 降 を 埋め て いた 0x20 
の XOR さ れ た も の だ と 見 て , 文字 列 の 終端 だ と し て いま す 。 

日 本 人 プロ グラ マ の 悩み の 種 の 一 つが , こう し た 文字 コー ド に 関す る 問題 な の で す 。 
文字 を 扱う プロ グラ ム を 作成 する 上 で , つね に 注意 が 必要 に な り ま す 。 

同じ よう に 文字 コー ド の 間 題 と し て , 半角 カタ カナ の 問題 が あり ます 。 俗 に 半角 カ 
タカ ナ と 呼ば れ て いる も の は , JIS (日 本 工業 規格 ) で 定義 され て いる 文字 コー ド 表 現 
[JIS X0201」 で 規定 きれ て いる も の で , カタ カナ を 1 バイ ト で 表す 文字 コー ド で す 。 ご 
た く 間 題 フ ァイル で は , 半角 カタ カナ が よく 使わ れ て いる の で す が , WonderWitch で 
は , 半角 カタ カナ を 表示 する こと が で きま せん 。 そこで, text put string with_ 
ha1f () と いう 関数 を 作っ て , 半角 カタ カナ を 全角 カタ カナ に 変換 し て 表示 し て いま 
す 。 


> 肌 out flag[] 

出題 する 問題 は , 基本 的 に 選択 きれ た ジャ ン ル か ら ラ ンダ ム で 決定 し ます 。 し か し , 
この 方 法 だ と 同じ 問題 を 何 回 も 出題 する 可能 性 が ある の で , 1 度 出題 し た 問題 の 番号 を 
put fl1ag[] に 記録 し て お き , 出題 前 に 比較 する こと で , 既出 問題 の 出題 を ふせ いで 
いま す 。 

と ころ が , 出題 し た 問題 数 が 増え て くる と , 何 度 ラ ンダ ム に 選ん で も , 既出 問題 の 番 
号 し か 得 ら れ な く て , 効率 が 悪く な り ま す 。 そこで, 5 回 ラン ダム に 選ん で , どれ も 出 
題 済 み だ っ た 場合 は , 出題 範囲 の 先頭 か ら 順に 検索 し て , まだ 出し て な い 問 題 を 取得 
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で きる よう に し て いま す 。 

出題 済み か どう か は 1 ビッ ト で 表現 で きる の で , 1 バイ ト で 8 問 分 の 情報 を 保存 で きま 
す 。out f1ag[] の 大 き さ が 191 バ イト な の は , WonderWitch の rom0 領 域 の 大 き さ と 等 
し い 間 題 フ ァイル が あっ た 場合 の ,。 ファ イル 内 の 全 間 題 数 か ら 算 出し て いま す 。 

正解 , 不正 解 の 表示 は , フォ ント デー タ 「 代 | の キャ ラク タ を お いた 複数 の スプ ラ 
イト を 並べ て 行っ て いま す 。 複数 の スプ ライ ト を 配置 する 座標 は , 勝手 に ひつ や メ に 配 
置 し て くれ る 便利 な 関数 が ある わけ で は な い の で , 根性 で 手 計算 し テー ブル に し まし 
た 。 も っ と エレ ガン ト に や る な ら ば , 円 を 描い た り , 直線 を 引い た りす る アル ゴリ ズ 
ム を 使え ば よい で し ょ う 。 


= 次 LSI-C の 制限 

LSI-C に は , いく つか の 制限 が 存在 する よう で , 長 すぎ る 条件 式 や , 大 きす ぎる 関数 
な ど を 作成 する と , アル ゴリ ズム や 文法 上 正しく て も , コン パイ ラ の 動作 中 に メモ リ 
が 足り な く な っ て し まい , コン パイ ル で き な く な る ケー ス が あり ます 。 gotaq.c で は 
maru batu() を 作成 し て いま す が , この 部 分 を main () 内 部 に 直接 書く と , コン パイ 
ル で き な く な り ま す 。 も し そう し た ケー ス に 遭遇 し た ら , 複数 の 条件 判定 文 に 分 割 し 
た り , 関数 と し て 切り 出す こと で 回 避 し て くだ さい 。 

実際 の 開発 時 に お いて , 何ら か の 理由 で 16bit 版 LSILC を 使用 し て いる と き に , この 制 
限 に 遭遇 する で し ょ う 。 逆 に , 32bit 版 LSI-C の 使用 に お いて は , 実用 上 唱 遇 する こと は 
あり ませ ん 。32bit 版 LSI-C を 使用 し て いる つも り で , も し この 現象 に 遭遇 し た ら , 環境 
が 正しく 設定 され て いな い 可 能 性 が あり ます 。WonderWitch サ ポー ト web サ イト か ら 
「32bit/16bit 統 合 版 LSI C-86 for WonderWitch| "lsic86ww.zip” を 入手 し , お 手持 ちの 解 
凍 ソ フト で 展開 し て 得 ら れる ファ イル 群 を , イン スト ー ル ディ レク トリ 以下 の 
lsic86ww 以 下 の も の と 置き 換え て くだ さい 。 


記 記 区 gotaq.bin の 実行 画面 


は を 発 主 さ せる SU めき 衝 け か ? 
還 全 1 
@ 
生 の 
0 
1 事 
区 員 GW き 3 < 
全 『 
KK 基 の 
ホッ 回 中 【 エ て て 1] 
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gotaq.c の 処理 の 流れ 


スプ ライ ト (選択 肢 を 選ぶ 「」 と 正解 表示 に 使う 「 便 ] ) の 準備 


rom0 領 域 か ら 問題 ファ イル を 探す 
人 問題 ファ イル は あっ た か ? 
は い 


見 つか っ た 問題 ファ イル を 一 覧 表示 し 選ば せる 


選択 され た 問題 フカ イル へ の アク セス を mmap()、 Open) で 確保 
mmap() は 成功 し た か 


は い 
問題 ファ イル か ら ジ ャ ン ル 名 を 取得 


取得 し た ジャ ン ル 名 に 「 ノ ンジ ャ ン ル | を 加え 
ジャ ン ル を 一 覧 表示 し 選ば せる 


選択 され た ジャ ン ル の 問題 が 、 問 題 番号 何 番 か ら 何 番 ま で か 取得 
出題 済み フラ グ を クリ ア 


出題 する 問題 を 乱数 で 決め る 。 た だ し 、 出 題 済み の 問題 は 
出題 し な い 。 最大 5 回 、 乱数 で 決め よう と する 。 
乱数 で 決め られ な か っ た 場合 は 、 範 囲 内 の 先頭 か ら 
見 て いっ て 、 ま だ 出題 し て いな い 問 題 に 決め る 


出題 し て いな い 問 題 が な く な っ た 


選ば れ た 間 題 に 対応 し た 出題 済み フラ グ を 立て る 


問題 と 答え の 表示 用 文字 列 を 作成 
ファ イル 内 の 文字 列 デー タ を 0x80 で XOH し て 作成 


問題 を 表示 


ファ イル 内 の デー タ で は 常に 1 つ 目 の 答え が 正解 な の で 
5 つの 答え の 順番 を 入れ 替え て 表示 


答え を 選択 させ る 


正解 、 不 正解 を 表示 
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5 gotaq.c 


/* 
クイ ズ ゲ ー ム 「 ご た く wonderwitch] 
問題 ファ イル を 選ぶ と , クイ ズ が 楽し め る 。 
*/ 


#1inc1ude < く stdqd1ib .h> 
#1nc1ude < く stdio .h> 
#inc1ude < く string.h> 
#inc1ude <sys/fFcn 上 1 .h> 
#1inc1ude <sys/btos .h> 


/* 2 バイ ト 文 字 を 判別 する マク ロ +*/ 


#define iskan]1(c) (((c) >=0x81 && (c)<=0x9F) || ((c)>=O0xEO &&g (c)<=OxFC) ) 


/* ご た く 問 題 デ ー タ フォ ー マ ッ ト 関 連 */ 


#define GENREHEAD COUNT 8 
#define OMASK 0x80 


typedef sruc { 


unsigned char npszName [16] /* ジャ ン ル 名 */ 
1nt reserved 1 
1nt nCount: /* 当該 ジャ ン ル の 問題 数 */ 
1nt OFFset: /* 当該 ジャ ィ ン ル の 先頭 位置 */ 
unsigned char npsz5td[12] /* プレ イヤ ー デ ー タ ファ イル 名 */ 
unsiqgned char npszTD[8]: /* TD("5TAKUODT") */ 
unS1gned Char reserVed 2[256-16-2-2-2-12-8] 

) GENREHEAD: 


typedef struc { 


unstgned char szOuiz[116] : /* 問題 文 */ 
unsigned char szList[5] [28] : /* 選択 肢 文 */ 
} OSCRTIPT: 


Yo1d maru batu (int) : 

vo1d text pu string _with ha1f(int, int, char far *): 
void check string(char far *。 nt): 

Void error msg(char far *): 

nt select () : 


1nt key _ wait up(int) : 
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extern 1nt findfirst(char far *, fen t far *, nr) 


extern in findnext(fent 上 far *): 


/* 〇 X を スプ ライ ト の 欠 で 表示 する た め の 座 標 デ ー タ 根性 で 手 計算 し た も の */ 
typedef sEruo { 

unsigned char Count, x[40], y[40]: 
) SHAPE: 


SHAPE shape[] = { 

/* shape[0] .count */ 

40, 

/* shape [0] .x */ 
92,100,108,116,124,132,140,148,156,156,164,164,164,164,164,156,156,148, 
140,132,124,116,108,100,92,84,76, 68,60,60,52,52,52,52,52,60,60,68,76,84, 
/* shape[0] .y */ 

12,12,12,12,12,20,20,28,36, 44,52,60,68,76,84,92,100,108,116,116,124,124。 
124,124,124,116,116,108,100,92,84,76,68,60,52, 44,36, 28,20,20, 

/* shape [1] .count */ 

33 

/* shape [1] .x */ 
44,52,60,68,76,84,92,100,108,116,124,132,140,148,156,164,172,44,52,60,68, 
76,84,92,100,116,124,132,140,148,156,164,172,0,0,0,0,0,.0,0, 

/* shape [1] .y */ 

4, 12, 20,28, 36, 44,52, 60,68,76,84,92,100,108,116,124,132,132,124,116,108, 
100, 92,84,76, 60,52, 44,36,28,20,12,4,0,0,.0,0,0,0,0 

) : 


/* 半角 カタ カナ 表示 用 */ 

char half table[64] [3] = { 
凍り 4 70 の 油 0E コ 4 
イオ オリ 。 "カリ 。 "キリ 
0 症 WASdm2A2o 0 2 の NO0 が 70 
ボボ W T で W 
更生 主 Fa 92 の 0 PWR ITNC WE0 0 OM だ NE 


に 3 


LA Le ン 20 が 2 Wi 94053 


char str[15] [29] , out flag[191], tmpstr [117] 
in mondai start, mondai end, monda1 Coun: 
QOSCRTPT qans: 

FILE far *fpD = NULLz 


vod matn() { 


半 代 世 。 
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fent 上 fentz 
char far *mondaiz 
GENREHEAD Far *genrehead D: 


display conro1 (DCM SCR1 | DCM SPR) 
text Se 上 Screen (SCREEN1 ) : 
text screen ini(): 


/* 選択 肢 を 選ぶ 矢印 と 正解 表示 の 但 を 作成 ょ / 
text put string(0, 0, "全島 ") : 

Font get data(8, 2, str[0]) : 

font se oco1ordata(1, 1, str[0] + 16): 


for(] = 0z: ] < 8z ]++) 【{ 
SEYELIUDN た の] =_07 
for(1i = 0 1 < く 8z: ュ ++) 
8 も だ ET ま 2] トー (SLOT ほ オ 2 ウ ァ 


5 も Ep(L 同 ます の" ボー。sEE 省 生ま 2 
) 
font set colordata (0, 1, str[1] ) : 
Sprite se range(0, 41): 
palette _set co1or(12, 0x7300) 
Sprite se char(0, CFM SPR UPPER | (12 - 8) 
Sprite se 1ocation(0, 224, 144): 
お G 下 (竹山 < 4 さよ) 放 


(7 = 00 0) くく 1: 


* Ox200 | 0): 


Sprite se char(1, CEM SPR UPPER | (12 - 8) * 0x200 | 1): 


Sprite se 1ooation(i, 224, 144): 


/* rom0 領 域 か ら 問 題 フ ァイル を 検索 する */ 


for(1 = findfirst("/rom0/*.5tq", sfent, FMODE R), 〕= 0: !i gg ] < 15: 


1 = findnext(gfen) , ]++) 
Strcpy (Str[]], fent .name) : 


for(1 = findfFirst("/rom0/*.5TO", gfen, FMODE R): !1 gg ] く 15』 


1 = findnext(&fFen) , ]++) 
Strcpy (str[]] , fent .name) : 
Py 剖 介 箇 


error msg(" 問 題 フ ァイル が /rom0 に あり ませ ん "): 


/* 間 題 ファ イル 選択 メニ ュー ォ */ 

text screen ini(): 

text put string(7, 1, "ご た く WonderWitch") : 
OFI( 和 キキ = 0 が ミユ で ヨコ 2 1 せま) 


テ 


text pu string _with ha1f(1, 3 + 1, str[i] ): 


1 = select(0, 24, 8, ]}): 
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/* 選択 され た 問題 ファ イル へ の アク セス を 確保 (ジャ ン ル 取得 用 ) */ 
出 三 ッ 
] = 14: 
if(1 == ]) 
4 
strcpy (str[]], "/rom0/"): 
StrCat:(8E エ [1。 BEF[i1 う 7 
if ( (mondai = mmap(str[]] ) ) == NOUTT ) 
error msg(" 問 題 フ ァイル に アク セス で きま せん "): 


/* 選択 され た 問題 ファ イル へ の アク セス を 確保 (問題 取得 用 ) */ 
fp = fopen(str[]], "rr") 5 


/* 問題 ファ イル か ら ジ ャ ン ル 名 を 取得 */ 

For(1 = 0: 1 < GENREHEAD COUNT: ュ ++) { 
genrehead D = (GENREHEAD Far *)monda1 + 1: 
memcpy(str[i], genrehead p->npSszName, 16): 
Str [1] [16] = "\07 5 

} 

strcpy (str[i], "ノン ジャ ン ル "): 


/* ジャ ン ル 選択 メニ ュー */ 
text screen 1ni(): 
text put string(11。 1, "ジャ ン ル 選択 ") : 
for(i = 0z ii ぐ 9: i++) 
text put string _with ha1f(6, 3 キ エ っ SE 下 富 け け 2 
ュ 1 = select(40, 24, 8, 9): 


/* 出題 範囲 を 取得 */ 
genrehead D = (GENREHEAD far *)mondai + (1 - 1) も 8: 
monda1 start = genrehead p->OFfse: 
mondai end = genrehead p->OFfset + genrehead p->nCOUn: 
mondai count = genrehead p->nCoun: 
if(1 == 9) { 
for(1 = 1: ii < GENREHEAD COUNT: 1++) 人 { 
genrehead PD = (GENREHEAD Far *)mondai + 1: 
mondai count = genrehead p->nCOun 
} 


monda1 end = genrehead p->OFFset + genrehead pー>nCOUn: 


/* 出題 済み フラ グ を クリ ア +*/ 
memset(out Flag, 0, 191): 


srand(0)』 
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while(1) ( 
/* すでに 出題 し た 問題 は 出さ な い */ 


』、 邦 (03 
do { 
1 = rand() $ mondai Count + mondai start - 8: 
イ ++』 
) while(((out ftag[1i / 8] >> (1 $ 8)) gk 1) gg ] < 5): 
if(] == 5) { 


for(1 = mondai start - 8z: (1 < mondai end - 8) 
gg ((out flag[i / 8] >> (i を 8) ) & 1): エ ++) : 
/* 選択 ジャ ン ル を 全 間 出題 し た ら 終了 */ 
if(1 == mondai end - 8) { 
text soreen 1ni ト () ょ 
text put string(12, 9, " 全 間 終了") : 
key_ wait up(KEY A) : 
breakz: 


/* 選ば れ た 問題 に 対応 し た 出題 済み フラ グ を 立て る */ 
out flag[i / 8] |= 1 << (1 5 8)z 


ふ キー 87 


/* 間 題 と 答え の 文字 列 を 用 意 */ 
fseek(fDp, 1 * 256, SEEK SET) 
fread(&gqans, sizeof (OSCRIPT) , 1, fp) 
for(1 = 0z 1 < sizeoFf (OSCRTPT) : 1++) 
( (char *) sgqans) [1] ^= OMASK: 
check string(qans.SzOuiz, 116) : 
for(1 = 0 1 く 5z ュ ++) 
check string(qans.Szhist[i], 28): 


/* 問題 の 表示 */ 

text screen 1ni(): 

memCpy (tmpStr, qans.SzOuiz, 116): 
tmpstr[116] = '\07: 

text pu string _with ha1f(0, 1, tmpstr) : 


/* 選択 肢 え シャッフル し て 表示 */ 
和 Ot 生 、 二 0 と 。 芋 で 5 な オキ り 
Str[O][1] = ニュ キ + ォ 1: 
oc( ふ = 0 ヵ 》 1 る 5z: 3T キ ) 1 
] = rand() も 4 + 1: 
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S も r [0] [5] = StE[O] [1: 
str[0] []] = str[01[0]: 
8 も EEOH LO ニ EEEO] Si 


} 

EOE:( さ 07 は で の エキ) 
memcpy (tmpstr, qans.SzList[str[0] [1] - 1], 28): 
tmpstr[28] = '\0!: 
text put string with half(], 7 + 1 * 2, tmpStr) 』 


/* 答え を 選択 ょ / 
1 = select (0, 56, 16, 5): 


/* 正解 不正 解 */ 


ューー: 


if (str[0] [1] == 1) 
引当 記 0 

e18Se 
) = 1 ュ 1: 


maru batu (]) 


fclose (EFDp) 


/* スプ ライ ト の 欠 で 〇 X を 表示 */ 
void maru batu(int ]) { 


二 00E 計 ゆみ 


For(1 = 0z i < shape []] .Count: i++) 
Sprite set 1ocation(i + 1, shape[]] .x[1] , shape []] .y[1] ) 
key wait up(KEY AA) 
for(1i = 1: + < shape []] .Count + 1 ユエ ユ ++) 
Sprite set 1ocation(1, 224, 144): 


/* 半角 カタ カナ の 混じっ た 文字 列 を 表示 する */ 

vo1d text put string with ha1fF(int x, in y, char far *str) { 
3n 1』 
char tmp[3]』 


for(1 = 0z str[i] != ー"\07 2 ュ ミオ +) { 
/* 2 バイ ト 文 字 (漢字 な ど ) */ 
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せま (iskan]1 (str[1])) 1 


tmp[0] = str[i] : 
tmp[1] = str[i + 1]: 
tmp[2] = "'\07: 

ュ オ キテ 


/* 半角 カタ カナ */ 
else ifE(Str[i] >= OxaO && str[1] <= Oxdf) 
memcpy (tmp, ha1f table[str[i] - 0Oxa0], 3): 
/* 半角 英 数 */ 
else { 
tmp[0] = str[i]』 
tmp [11 41 


} 
text put strinmqg(x, Y, mp) : 
pa 
EC. ター27) 人 
x ーー 0: 
Y+ サ : 


/* 文字 列 を 調べ て 不要 な 0xa0 を 文字 列 の 終端 と する */ 
vo1d check string(char far *st エ , int count) 人 { 


nt ュ : 


for(1 = 0: 1 < count: 1 ユ ++) 
if (iskan]1(str[i] ) ) 
エモ オ オ 』 
e1se if(str[i] == OxaO || str[i] == Ox80 | (str[i] > OxfEc) ) { 
Str[1] = '\0"!: 


breakz 


/* エラ ー メ ッ セ ー ジ を 表示 し て 終了 */ 
Void error msg(char far *msg) { 
text pu string(0, 0, msg9) : 
key wait up(KEY A): 
if(Efp != NULL) 
Etc1ose (fp) / 


bios exit() 
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/* 選択 肢 を 選ば せる +*/ 
int select (int x, int y, int tab, in count) 【{ 


DE 。 nyY ァ 


ny = Y』 
Sprite set 1ocation(0, x, ny) 
while(!((1 = key wait() ) s KEY A)) { 
1if(1 & KEY X1 eg& ny > Y) 
ny -= tab: 
else ifF(i sg KEY X3 sg ny く y+ ab * (count - 1)) 
ny += taD』 


else ifF(1 & KEY START) 
Dios_exi() 


Sprite set 1]ocation(0, X, ny) 


sprite set 1ocation(0, 224, 144): 


for(1 = 0 1 < count: ユエ ++) 
if(ny ==y+ ii メメ ab) 
return 1 十 1』 


Fe て turn -1。 


/* 指定 され た ボタ ン が 押さ れ て 放さ れる まで 待つ */ 
int key_ wait up(int mask) { 
1n re 


while(!((ret = key wai()) es masKk) ) 
1F(ret & KEY START) { 
1iF(Ep != NULL ) 
Foc1ose (fp) 
bios_ex1() : 
} 
while(key press cheock() es re 七 ) 


と eurn Te: 
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も っ と 「 ご た く 」 に 


gotaq.c (List 8.5) は , と りあ え ず 「 ご た く 」 問題 デー タ を 引っ 張り 出せ る レベ ル に 
すぎ ませ ん 。 実際 に 「 ご た く 」 で 遊ぶ と , 時 間 制 限 が あっ た り , アイ テム で 3 択 に な っ 
た り , 得点 ラン キン グ が つい て いた り し ます 。 つ けた い 機 能 は いく ら で も 考え られ ま 
98 

と りあ え ず 手軽 な と ころ か ら 手 を 入れ て いく な ら , 毎回 同じ 順番 で 問題 が 出題 され 
る の を 変え た り , 正答 率 を 計算 し た りす る と ころ か ら , 始め れ ば よい で し ょ う 。 

と に か く こ れ で , 今日 か ら ア ナタ も WonderWitch で クイ ズ 三 昧 で すね 。 
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ゲー ム を 作る に し て も , その 他 の アプ リケーション を 作る に し て も , みな さん が ソ 
フト ウェ ア を 作る た め に は , さま ざま な 道具 を 使い ます 。C 言 語 で 記述 し た ソー ス を コ 
ン パ イル する コン パイ ラ を は じ め , これ まで 使っ て きた TransMagic.exe, bmpcnv.exe, 
sndcnv.exe が な けれ ば , みな さん の WonderWitch に お ける 開発 は どう な っ て いた で し ょ う 。 

どれ だ け ラ ク に 開発 が 行え を る か は , その 開発 環境 に 存在 する ツー ル の 良し 吉 し に か 
か っ て いま す 。 一 般 的 に 提供 され る 開発 環境 は , どう し て も 最大 公約 数 的 な バラ ンス 
に な っ て し まい ます の で 「 も っ と こん な ツー ル が あっ た らい い の に ] と 思う こと も 多 
ゅ いで し ょ う 。 そ うし た 場合 , どう すれ ば いい の で し ょ う ? 

私 た ち 人 間 は , 最初 に その 手 に 石器 を 握っ て 以降 , 欲し い ツ ー ル が あれ ば 自分 た ち 
で 作っ て きま し た 。 で すか ら , この 場合 も , 自分 の 欲し い ツ ー ル を 自分 で 作れ ば よい 
の で す 。 ま ず は 自分 が 最低 限 使え を る も の を 作り , そし て 安定 動作 し 使い や すい も の に 
改良 し , イン ター ネッ ト な ど を 通じ て 多く の 人 に 使っ て も ら え る よう に 配布 し て み ま 
5 

本 章 で は , WonderWitch 上 で 演奏 する 曲 の デー タ を , 別 の 形式 の 演奏 デー タ か ら 変 
換 す る ツー ル を 作成 し て み ま す 。 


WonderWitch-MML の 解析 


WonderWitch 上 の ソフ トウ ェ ア の BGM と し て , さま ざま な 有 曲 を 演奏 させ た い の で す 
が , 曲 の 演奏 デー タ を 用 意 す る の は 容易 で は あり ませ ん 。 私 た ちの 周囲 に ある 曲 の 演 
奏 デ ー タ と いえ ば , 携帯 電話 の 着信 メロ ディ や , MIDI デ ー タ が 一 般 的 で し ょ う 。 し か 
し , これ ら の デー タ は , WonderWitch 用 の MML で 記述 きれ て いる わけ で は な い の で , 
参考 に は な っ て も , 直接 WonderWitch 上 で 演奏 する こと が で きま せん 。 た と えば ぱ , 着 
メロ の デー タ を 見 な が ら , 頭 の 中 で MML に 変換 し て , WonderWitch 用 の MML 記 述 を 入 
力 し て いく と いっ た よう に , 人 間 が 変換 作業 を 行う こと に な り ま す 。 

曲 の 演奏 デー タ を 変換 する 程度 で あれ ば , プロ グラ ム で 自動 的 に 行う こと も 可能 で 
し ょ うか ら , MIDI で 記述 され た 曲 の 演奏 デー タ を , WonderWitch 用 の MML デ ー タ に 変 
換 す る 方 法 を 考え ます 。 直接, MIDI デ ー タ を 変換 する プロ グラ ム (ツー ル ) を 作る こ 
と も 可能 で す が , その た め に は , MIDI デ ー タ の フォ ー マ ッ ト に 関す る 知識 が 必要 に な 
り ま す 。 そ こ で , MIDI デ ー タ を , MIDI デ ー タ より は わか りや すい デー タ に 変換 し , そ 
の デー タ か ら WonderWitch 用 の MML デ ー タ を 作成 する こと に し ます 。 

イン ター ネッ ト 上 で , MIDI デ ー タ を 別 の 形式 に 変換 する 機能 を も っ た ソフ トウ ェ ア 
を 探し た と ころ , 「SPICE」 (付録 CD-ROM に 収録 ) と いう ソフ トウ ェ ア を 見 つけ る こと 
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が で きま し た 。 後藤 浩昭 氏 作 の SPICE は , 独自 の MML (本 書 で は SPICB-MML と 呼ぶ ) 
を 用 いで 作曲 を 行い 。 MIDI フ ァイル を 作成 する ソフ トウ ェ ア で す 。 ツ ー ル と し て , 
MIDI フ ァイル を SPICE-MML に 変換 する ソフ トウ ェ ア も 付属 し て いま す 。 

SPICE-MML も WonderWittch 用 の MML (本 書 で は WonderWitch-MML と 呼ぶ ) も 同じ 
MML で すか ら , MIDI フ ァイル を WonderWitch-MML に 変換 する より も , SPICE-MML を 
WonerWitch-MML に 変換 する ほう が , は る か に 簡単 な プロ グラ ム で 実現 で きそう で す 。 
SPICR 上 で 作成 し た SPICE-MML フ ァイル や , MIDI フ ァイル か ら SPICE-MML 形 式 に 変換 
し た ファ イル を , WonderWitch-MML に 変換 で きれ ば , さま ざま な 演奏 デー タ を 利用 で 
きま す 。 そこで, ここ で は SPIOE-MML を WonderWitch-MML に 変換 する ツー ル を 作成 す 
る こと に し ます 。 


演奏 デー タ 変 換 ツ ー ル の 作成 


作成 する プロ グラ ム は , 最終 的 に WonderWitch 用 の MML デ ー タ を 出力 で き な け れ ば 
な り ま せん 。 そこで, まず , WonderWitch-MML が どん な も の な の か , 調べ て みる こと 
紅玉 ま す 。 

基本 的 に は , 取扱 説明 書 の 付録 人 の 「MML 文 法 | を 見 る こと に な り ま す が , これ だ 
け で は わか ら な いこ と も ある の で , 実際 に 音 を 鳴ら し て 調べ て み ま す 。 特 に, DTM 
(コン ピュ ー タ を 使っ て 作曲 な ど を 行う こと ) に 関す る 知識 が な い 場 合 , マニ ュ ア ル に 
記述 され た 内 容 さ ぇ 理解 が 難し い の で , イン ター ネッ ト 上 で 用 語 の 意味 を 調べ た り し 
な が ら 取 り 組 み ま し ょ う 。 

た と えば , 音 の 長 さ の 指定 は , 値 が 大 きく な る と 長く な る の で は な く , 値 が 4 な ら 四 
分 音符 , 8 な ら 八 分 音符 と いう よう に , 短く な り ま す 。 こ の こと は , 知識 と し て 知っ て 
いる か , 実際 に 音 を 鳴ら し て みて 確か め な けれ ば わか り ま せん 。 

また 「 ス テッ プ ]| と 呼ば れる 指定 方 法 を 使え ば , 


O4 EF4 


F(30,15) 


の よう に 表現 で きる こと も , 実際 に 確か め て みる こと で わか っ て きま す 。 
他 に も , ノー ト ( 音 を 鳴ら す ) や 休 符 に つけ る こと の で きる “.” の 意味 が , この 資 
料 に は 載っ て いま せん 。 実際 に 鳴ら し て みる と , 指定 され た 音 の 長 さ を 1.5 倍 に する 効 
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果 が ある こと を 確か め ら れ ま す 。 つ まり は , 


F4^8 


F4 . 


で 表現 で きる と いう こと で す 。 

マニ ュ ア ル に 記述 の ある も の も , 確認 の 意味 で 調べ て お く と よい で し ょ う 。 た と を 
ば , テン ポ を 指定 する “T” コマ ンド に 与え る 値 は 。 マニ ュ ア ル で は 255 ま で と 書か れ 
て いま す が , 実際 に は 255 を 超え る 値 を 正しく 解釈 し て 動作 し ます 。 逆 に , 255 ま で と 
書か れ て いな い , 音 長 や ゲー ト の ステ ッ プ 数 指定 で は , 255 を 超え る と 正しく 動作 し 
ませ ん 。 

sample.mml の 記述 も 参考 に な り ま す 。 た と えば , sample_mml で は “"T”" コマ ンド を 1 
回 だ けし か 使っ て いま せん が , 少し 調べ て みる と , ファ イル 中 の 1 番 最後 で 宜 言 さ れ た 
テン ポ が , すべ て の チャ ン ネ ル で 曲 の 最初 か ら 有 効 に な る こと が わか り ま す 。 つ まり , 
曲 の 進行 状態 に 応じ し て テン ポ を 変え 0 る た め に は , 音 の 長 さ 自体 を 調節 する 必要 が ある 
MAGOASNGTCK9o 

マニ ュ ア ル を や 資料 を 読ん で わか ら な い 場 合 や , 詳し いこ と が 載っ て いな い 場 合 は , 
自分 で 実験 し て みる の が , 案外 近道 だ っ た り し ます 。 


SPICE-MML の 解析 


デー タ を 変換 する プロ グラ ム を 作成 する の で あれ ば , 変換 する 元 の デー タ の 形式 も 
知っ て いな けれ ば な り ま せん 。 そこで, 8PICEB-MML に お いて , どの よう な 表現 が 行わ 
れ て いる か を 解析 し ます 。 特 に ここ で は , MIDI デ ー タ を 変換 し て 得 ら れる SPICE-MML 
デー タ に つい て 考え ます 。 


疫 MIDISPICE-MML デ ー タ 変換 ツー ル DSMC を 使っ て みる 


SPIOCE 付 属 の MIDIーSPICEB-MML デ ー タ 変換 ツー ル DSMC を 使っ て , MIDI デ ー タ か ら 
SPICE-MML デ ー タ を 作成 し て み ま す 。 た と えば , test.mid と いう MIDI フ ァイル (テス 
ト に 使え る MIDI フ ァイル を 付録 CD-ROM に 収録 ) を 変換 する 場合 に は , SPICE を イン ス 
トー ル し た ディ レク トリ の 中 の \srcydsmc デ ィ レ クト リ に ある dsmc32.exe を 使え る 環境 
了 
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> Qdsmc32 tes .m1d 


を 実行 する と , testmid が SPICE-MML に 変換 され た test.dsm が 得 ら れ ま す 。 


K * SPICE-MML と WonderWitch-MML の 文法 を 比較 する 


作成 し た SPICR-MML デ ー タ と , SPICE の マニ ュ ア ル を 突き 合わ せ , さら に 先ほど 話 
題 に し た WonderWitch の MML 文 法 で 記述 可能 な 表現 も 考慮 に 入れ て 見 て いき ます 。 
SPICB-MML も WonderWitch-MML も , いずれ も MML で す の で , 共通 点 を 多く 見 つけ る 
こと が で き , デー タ の 表現 の 仕方 が 少し 違う 程度 な の だ と わか る で し ょ う 。 

SPICR-MML は , MIDI 音 源 を 対象 と し た MML な の で , 複数 の チャ ン ネ ル を 使用 し て 多 
重 発音 が 可能 な 「 ト ラッ ク | が 基本 単位 に な り ま す 。 も し ある トラ ッ ク 内 で 同時 に 4 音 
を 鳴ら し て いる 場所 が ある と , WonderSwan 上 で は , その トラ ッ ク だ け を 鳴ら す の に 精 
一 杯 に な っ て し まい , 他 の トラ ッ ク を 鳴ら すこ と が で きま せん 。 各 トラ ッ ク が , 各 パ ー 
ト (楽器 ) に 対応 し て いる の で , 1 トラ ッ ク し か 鳴ら せな いと , 楽曲 全体 の 雰囲気 を 再 
現 で きま せん 。 

各 ト ラッ ク に お ける 多重 発音 を 抑制 する よう な 変換 方 法 を 考え る こと に し まし ょ う 。 
単 一 の 楽器 で か つ 多 重 発音 で 表現 し な けれ ば な ら な いも の と は , 和音 を 鳴ら す 場合 だ 
と 考え られ ます 。 和音 の 旋律 は , 和音 を 構成 する 単音 の 旋律 だ け で も , 少し は イメ ー 
ジ を 再現 で きる と され て いま す 。 た と えば , 複数 の 3 重 和 音 で 構成 され る 旋律 が あっ た 
場合 , 3 重 和 音 の 真ん中 の 音 だ け を 使っ た 旋律 で も , イメ ー ジ を 再現 で きる と いう わけ 
で す 。 そこで, 以下 の よう な 多重 発音 が 記述 され て いた 場合 に , 


2 o4E (100, 0)0,15 
2 o4a (100, 0)0,15 
2 o5d (100, 0)120,15 


1 番 最後 に 定義 され る 音 だ け を 鳴ら すこ と に し ます 。 す べ て の トラ ッ ク に 対し て , この 
操作 を 行え を ば , 1 トラ ッ ク 1 チ ャ ン ネ ル に な り , 4 トラ ッ ク 分 を WonderSwan 上 で 鳴ら す 
こと が 可能 に な り ま す 。 

また SPICE-MML に は , WonderWitch の 音源 ドラ イ バ が サポ ー ト し て いな い 機 能 の 記 
述 が 多く あり ます 。 発音 時 の 強 さ を 表現 する ベロ シテ ィ な ど , 繊細 な 音楽 表現 を 行う 
た め の 記 述 は , WonderWitch 上 で は 利用 で きま せん の で , プロ グラ ム で 意味 を 解析 し 
て 変換 する 必要 が あり ませ ん 。 そう 考 える と , 基本 的 に 必要 と な る 情報 は . ノー ト 
(発音 ), 休 符 , 音量 調節 , パン ポッ ト (ステ レオ の 振り 分 け ) に な り ま す 。 

MIDI か ら 作 られ た SPICE-MML デ ー タ に お いて , ノー ト の 情報 は , 音 の 高き を 表現 す 
る 文字 列 ,、 ベ ロロ シティ, 音 の 長 さ な ど を ステ ッ プ 形式 で 表現 し た 値 で 構成 され て いま 
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す 。 こ の うち ベロ シテ ィ は 必要 あり ませ ん の で 無視 し , 残る デー タ で WonderWitch- 
MML デ ー タ を 作り ます 。 


の 4 o5d (100, 0)120,15 


o5d(120, 15) 
と する わけ で す 。 休 符 に 関し て も , 同様 に 


2 R347 


R(347) 


| 且 に 9 

ここ で 出 て くる , 長 さ に 関す る 値 に つい て は , WonderWitch-MML で は 上 限 が 255 ま 
で と な っ て いる の で , デー タ に 出現 する 値 の 最大 公約 数 を 用 いて , な る べく 値 を 小さ 
くす る よう に 工夫 する こと に し ます 。 キ ー ボ ー ド な どか ら の 打ち 込み で 作成 され た デ 
ー タ に は 効果 が 期待 で きま せん が , 音 の 長 さ が きれ い に 音 符 ど お り に な っ て いる デー 
タ の 場合 は , か な り 値 を 小さ く で きる と 考え られ ます 。 

それ で も 255 を 超え る 場合 は , 


R(255) R(92) 


と いっ た よう に , 複数 の 記述 に 分 割 す る こと に し ます 。 

SPICER-MML デ ー タ で は , トラ ッ ク 1 が テン ポ の コン トロ ー ル の み に 使 われ て いま す 。 
この た め , 実質 的 な 曲 の トラ ッ ク は 2 番 以 降 に な り ま す 。 ト ラッ ク を 順番 に 見 て いっ て , 
音 を 鳴ら し て いる トラ ッ ク だ け を 4 つ 分 取り 出し て , WonderWitch-MML デ ー タ に 変換 
まる こと に し ます 。 


SmccnV.ex@ 


ここ まで 進め て きた 考察 に 基づい て 作成 し た の が , MIDI フ ァイル か ら 作 成 さ れ た 形 
式 の SPICE-MML デ ー タ ファ イル (拡張 子 .-smc も し く は .dsm) を , WonderWitch-MML デ ー 
タフ ァイル (拡張 子 .mml) に 変換 する ツー ル “smeccnv.exe”" に な り ま す 。 
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ANSI C 準 拠 の C( コ ン パ イラ を 用 いて コン パイ ル し て くだ さい 。 普段 使っ て いる も の 
で よい で し ょ う 。C コ ン パ イラ を 持っ て な い 場 合 は , 「Borland C++ Compiler 5.5.1| ( 付 
録 CD-ROM に 収録 ) を 利用 し て くだ さい 。 ま た , smccnv.exe は , 他 の 章 の プロ グラ ム 
と は 異な り , PC 上 で 利用 する プロ グラ ム で すか ら , WonderWitch 上 で 実行 し た り し な 
いで くだ さい 。 

MIDI フ ァイル を DSMC で 変換 し た ファ イル を , さら に smccnv.exe で 変換 する こと に 
よっ て , MIDI フ ァイル か ら WonderWitch-MML デ ー タ ファ イル を 得る こと が で きま す 。 

例え ば , testmid を WonderWitch-MML デ ー タ ファ イル に 変換 する に は , 


> dsmc32 tegt .mid 
を 実行 し , 得 ら れ た test.dsm を smccnv.exe の 引数 に し て 
> SmoonV es .dsm 


と し ます 。 す る と , WonderWitch-MML 形 式 に 変換 され た ファ イル test.mml が 得 ら れ ま 
す 。 こ うし て 得 ら れ た WonderWitch-MML デ ー タ ファ イル を 使う に は , 第 3 章 の | 音楽 
を 鳴ら し て みる 」 (p.70) を 参考 に し て くだ さい 。 

実際 に 使用 する 際 に は , MIDI を 扱う エディ タ (付録 CD-ROM に 収録 の Cherry な ど ), 
も し く は S8PICE 上 で , MIDI の 曲 を 加工 し て , 4 チャ ン ネ ル で ちゃ ん と 開け る よう な MIDI, 
SPICB-MML デ ー タ に し て お く と よい で し ょ う 。 


List 9-1 smccnv.c 


#1nc1ude <std1ib.h> 
#1nclude <stdio.h> 
#1inc1ude く string .h> 


#define MAX LENGTH 64 
#define FTLE END 1 


typedef struot note { 
char code[MAX LENGTH] : 
uns1gned in start,。 1ength1, 1ength2: 


Struct note *nex: 
) NOTE: 


NOTE *channe1[4] , tmp_note: 
FTLE *Fpz 


nt get 1ine(char *): 


Yo1d clear channe]S (Vo1d) : 
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せ 軸 も CO(1n 上 上, nt) : 


yo1d main(tint arqgc, char *arqv[]) { 
char 1ine str[4096 + 1], now channe1, a1tive track, now rack, 
channe1 end, *cmd p, r f1agz 
nt 1, ], division, て tempo, basez 
unsigned in now 上 ime, min gate, min 1enz 


NOTE **nex 上 DD, *np, * メ npn,/ *DreV r np, *nDOz 


すき E モ (8EdC. != 2) {【 
puts ("SMC->MML. For WonderWitch") : 
puts("smccnvV fi]1ename"): 
re て urT: 

} 

if((fp = fopen (arqv [1] , "rt")) == NULL) { 
printfF("f1i1le:$s no 上 found.\n", ardv[1] ) 


GUrnz 


now channe] = 0: 
channe1 [now channe1] = NULL: 
next pp = &channe1[now channe1]: 
alive traok = 0: 

now track = "1!: 

now time = 0: 

channe1 end = 0z 

min gate = 30000: 

min 1en = 30000: 


while(get 1ine(1ine str) != FTILE END) 
/* グロ ー バ ル 命 令 か ら 分 解 能 , テン ポ 取 得 * ょ / 
tE(1ine str[0] == "# ま ") { 


1f(! strncmp(11ne S も tr, "#DTVITSITON", 9) ) 
SSCanfF(]11ne st エ , "#DTVTSTON る d", gdivision) 
else if(!strncmp(1ine str, "#TEMPO-M", 8) ) { 
sscanf (]1ine Str, "#TEMPO-M も る d", &tempo) 
tempo = 240000000 / tempo: 
else if(!strncmp(11ne str, "# ま TEMPO", 6)) { 
SSCanf (11ne Str, "#TEMPO る dQ", &tempo) / 
tempo *= 4: 
} 
人 な よき @ 
Continuez 
} 
e1se 1E(1ine str[0] == "'@') 
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Continue: 
else { 
/* 音 の ある トラ ッ ク , ファ イル 先頭 か ら 4 つ 分 を , 
4 チャ ン ネ ル に 割り 当て */ 
1f(now track != 1ine str[0]) { 
1f(a1ive track) { 
now Channe1++: 
1f(now channe1 > 3) 
break: 
channel [now channe1] = NULL: 
next pp = schanne1[now channe1] : 


) 


else [{ 
for(np = channe1 [now channe1]: np != NULL: np = npn) { 
npn = np->nex 巧 ょ 
Free (np) 
) 
channel[now channe1] = NULL: 


next pp = &channe] [now channe11: 
} 
a1ive traock = 0: 
now track = 1ine str[0]: 
now time = 0: 
channe] end = 0: 
1) 
else ifF(channe1 end) 


Cont1nue: 

/* ノー ド さ / 

if(sscanf(1ine str + 1, " Ss ( %d , $%d ) $%d , %d", 
tmp_note.code, &1,&], stmp note.1ength1,gtmp note.1ength2 ) 
== 5 
ss tmp note.code[0] == 'o' gg tmp note.1ength1 > 0) { 
SprintF(tmp note.code + str1en(tmp note.code) , "($d, 9) 7"/ 


tmp_note.1ength1, tmp _note.1ength2) : 
tmp_note.Star = now ime: 
now 1me += tmp note.1ength1: 
a1ive track = 1: 
1E(Emp_note.1ength2 < min gate) 
min gate = tmp note・.1engh2: 
1f(tmp note.1ength1 < min 1en) 
min len = tmp note.1ength1: 
} 


/* 休 待 */ 
else 1F((cmd p = strchr(1ine str, 'R') ) != NULL) { 
tf(sscanf(cmd p, "R $d", gtmp note.1ength1) != 1) { 


SITICCTV.@X8 を ク 4 


puts ("Warninq: read skip "R'.")』 
puts(11ne St エ ) 
Continue: 
} 
Sprintf(tmp note.code, "R(sd) ", tmp note.1ength1 ) : 
tmp note .star = now 1imez 
mow time += 1: 


} 


/* 音量 */ 
else ifF((cmd p = srchr(1ine Str, !Y" ) ) != NULL) { 
if(sscanf(cmd_p, "V も d",。 &i) != 1) 人 { 


puts ("Warning: read skip "V' 9: 
puts(1ine Str) 
Cont1inue@: 
sprintf(tmp note.code, "Vsd",。 ュ エ * 15 / 127) 』 
tmp note .star = now imez 
} 
/* パン ポッ ト (ステ レオ の 振り 分 け ) */ 
else ifF((cmd p = strchr(1ine str, 'P') ) != NULh) { 
if(sscanf(cmd p, "P %d"。 gi) != 1) { 
puts ("Warning: read Skip 'P'."): 
puts (1ine Str) 
ContinUue: 
1) 
SprintE(tmp note.code, "Psd", (1 - 64) * 15 / 64): 
tmp note.start = now 1mez: 
} 
/* ノー ト オ フ の 休 待 化 */ 


else if(sscanF(1ine str + 1, " $Ss ( %d ) $dP/ 
tmp note.code, &i, &tmp note.1ength1) == 3 
ss tmp note.code[0] == 'o" 
sg tmp note.code[str1en (tmp note.code) - 1] == '* り リ 


ss& tmp note.1ength1 > 0) { 
sprintfF(tmp note.code, "R($d) "/ tmp note.1ength1 ) 
tmp note.Sstart = now imez 
now 上 1me += ]: 

} 

/* トラ ッ ク の 演奏 終了 */ 

else tfE(strstr(11ne str, "GE") ! 三 NULL) { 
channe1 end = 1: 
Continue: 

} 

ら eS1Se 


Continuej 
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/* 取得 し た 命令 を 保存 */ 

1f((*next pp = (NOTE *) (ma11oc(sizeof (NOTE) ) ) ) == NULL) 
puts ("Eror: memory over Flow."): 
eturTn: 

} 

tmp note.next = NULL: 

memCpy(*nex 上 pp, &tmp note, sizeof (NOTE) ) : 

next DD = &((*next pp) ->nex) : 


} 
Fc1ose (fp) 


/* 休 符 情報 の 正規 化 ょ / 


for(1 = 0z 1 く 4 ユエ + オ +) 


for(r flaJ = 0, np = channe1 [1]: np != NULL: npo = np, 
np = np->next) [{ 
1f (np->code[0] == "RY) { 
tf(!r f1ao) 


PreV r nD = nDz 
else 
Prev r np->1enqth1 += np->1ength1 
SprintF (DreV r np->code, "R($d) ", prev エ np->1ength1 ) 
npo->nGx 二 = np->nGx: 
Free (nP) 
nD = npoz 
} 
r flag = 1 
) 
elLse 1fE(np->code[0] == "o') 
r flag = 0 


/* min 1en と min gate の 最大 公約 数 を 求め 長 さ を 正 規 化 */ 
base = qcd(min 1en, min gate) 
tempo /= base: 
for(1 = 0z 1 < 4: ュ ++) 
for(np = channe1 [1] : np != NULL: np = np->next) { 
if (np->code [0] == "R') 【{ 
np->1ength1 /= basez 
Sprintf (np->code, "R (る d)『,/ np->1ength1 ) 
} 
el1se 1f(np->code [0] == 'o') { 
npー->1ength1 /= basez 
np->1ength2 /= basez 
欠 列 生ま CS も PGI (NTD ニ テテ GOQG。 も 0 。 1 きき GT 
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np->1ength1, np->1ength2 ) : 


Stropy(11ne str, arqy[1] ) : 
UM (ELA 且 】 


Stropy (Strrohr(11ine str, 
wt") ) == NULL) { 


if((fp = fopen(1ine str, 
prrintf("Fi1le:ss can no open.\n", 1ine str) 
clear channe1s () : 


return: 


/* Wonderwitch-MML を 出力 , 長 過 ぎる も の は 分 割 */ 
エ < 4 エ ユエ オキ ) 【 


for(1i = 0』 
"#Q\nGBO0 GEO 6SO\nm", 1): 


fprintf (fp, 

症 (Sh 
fprintf (fp, 

for(np = channe1 [1]: np != NULL: np 


"T も d\n", tempo) > 
= np->nex モ ) { 


1f (np->code[0] == 'R') { 
for(] = 1 np->1ength1 > 255: np->1enqgth1 -= 255, }++) { 
EpFinEE(ED。 RIC2559 "9 
(HG| 499 


fprintFf (fp, "\n") 


} 
1f (np->1ength1 ) 


fprintf(Fp, "R(%d)\n",。 np->1ength1 ) 


e1se 
FprintF(ED, "\n"): 


] 
el1se 1EfF (np->code [ 0] 
Strcpy(1ine Str, np->CoQe ) 
*strchr(1ine str,。 !(") = "W07 8 
for(] = 1z np->1ength1 > 255: np->1ength1 -= 255, 〕++) { 
if (np->1ength2 > 255) { 
"名 Ss (255, 


= "o り ( 


fprintf (fp, 255) ", 1ine_ str): 


np->1engEth2 -= 255。 
} 
else { 
fprintFf(Fp, "ss(255, $%d) ", 1inme Str, np->]ength2) 
= 0z 


np->1ength2 
} 


まお iC に 季 4) 
ED そそ nE 下 (ER。 “nn 


} 
1f (np->1ength1 ) 
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fprintF (Ep, "も s(&d, も d)\n", 11ine str, np->1ength1 , 
np->1ength2) : 
e1se 
fprintf(FD, "\n"): 
} 
e1se 
fprintfF(fD, "を S\m", np->Code ) 
} 
fprintfF(Fp, "!\n\n") 


fclose(fp) : 
cl1ear channe1s () 


/* 1 行 読み 込む */ 
1nt get 1ine(char *11ne str) { 
1f(fgets(1ine str, 4096, Fp) == NULL ) 
return FTLE END: 
81se 
return 0: 


/* 全 チ ャ ン ネ ル の 音符 デー タ を 捨て る */ 
void clear channe1s() { 

3nt 1 ょ 

NOTE *npz 7npnz 


for(1 = 0z 1 < 4: ユ ++) 
for(np = channe1[1]: np != NUIL: np = npn) { 
npn = np->nex キ : 


Free (nb) 


/* 最大 公約 数 を 得る */ 
党 交 EGG は も 包 。 さま nE 5) 【 
if (!D) 
と て @GEurn 8』 
return qcd(b, a も D)』 


SrTICCTV.eXG を グ $ ] 


Smccnv.exe を 改良 する 


smccnv.exe は , まだ まだ 改良 の 余地 が ある ツー ル で す 。 た と えば , 曲 に よっ て は , 
自動 的 に 算出 され る テン ポ が , あま り よ く な い 場 合 が あり ます 。SPICE と WonderWitch 
の 音源 ドラ イ バ の 間 の ステ ッ プ 数 と テン ポ の 関係 を , 詳し く 調 べ ず に 経験 的 な 算出 方 
法 を 用 いて いる た めで す が , この 部 分 は 改良 し て や る 必要 が ある で し ょ う 。 実用 上 は , 
WonderWitch-MML デ ー タ ファ イル 上 で テン ポ 記 述 が 1 ヶ所 し か な いた め , 変更 が 容易 
で あま り 不 便 を 感じ な い の で す が , プロ グラ ム と し て エレ ガン ト で は あり ませ ん 。 

また , SPICEB-MML の トラ ッ ク 1 に 記述 され た , テン ポ の 進行 で す が , 現状 で は , こ 
れ を 無視 し て いる の で , 曲 に よっ て は 正しく 鳴り ませ ん 。 曲 の 途中 で テン ポ を 変え る 
こと を , WonderWitch 上 の 音源 ドラ イ バ は で き な い の で , 再現 で きま せん 。 人 本来 な ら , 
この テン ポ の 変更 に し た が っ て , 音 の 長き の デー タ に 補正 を か ける 必要 が ある の で す 。 

他 に も , マウ ス で 操作 で き な い と 嫌 な 人 は GUI を 被せ れ ば よい で し ょ うし , 変換 する 
トラ ッ ク を 選べ る よう に し て も よい で し ょ う 。 


も っ と ツー ル が あれ ば ぼ ば …… 


アプ リケーション ソフ トウ ェ ア を 作る 場合 , 本 体 も 大 事 で す が , 作成 に 必要 と な る 
ッ ツー ル を そろ える こと も 重要 で す 。 ノ コギ リ と カナ ゾ ヅ チ で 机 を 作る より , 電動 工具 を 
使っ た ほう が , 普通 は 速く きれ い に 作 業 で きま す よ ね 。 

た と えば , WonderWitch 上 で 圧縮 され た デー タ を 展開 する ルー チン が あっ た と し ま 
す 。 こ の ルー チン が 処理 の 対象 と する , 圧 縮 され た デー タフ ァイル も , WonderWitch 
上 で 作成 する で し ょ うか ? わざ わざ WonderWitch 上 で 行わ な く と も , PC 上 で 作成 し 
た ファ イル を 転送 し て や れ ば いい 話 で す 。bmpcny.exe や sndcnyv.exe が , WonderWitch 
上 で 動作 する プロ グラ ム で な い の も , まっ た く 同 じ 話 で す 。 

最近 で は , さま ざま な フリ ー ウ ェ ア の ツー ル が 存在 する の で , 以前 に 比べ る と 自分 
で ツー ル を 作る こと は 減り まし た 。 し か し , な い 場 合 は 作ら な けれ ば な り ま せん 。 ど 
う せ 作る な ら , 自分 ひと り で 使う だ け で な く , みん な に 使っ て も ら っ て 喜ん で も らい 
た いで す よ ね 。 

あな た の 作る ツー ル が , WonderWitch コ ミュ ニテ ィ を 動か し て いく 力 の 1 つ に な る か 
も しれ ませ ん 。 
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2000 年 12 月 9 日 に WonderSwanColor が 発売 され まし た 。WonderSwanColor は , 4096 色 
か ら 選 ば れ た 色 を 表示 可能 な . カラ ー 化 され た WonderSwan で す 。 

WonderWitch で は , WonderSwanColor の 発売 に 合わ せ て , プロ グラ ム の カラ ー 化 を 
サポ ー ト する ライ ブラ リ が 提供 きれ まし た 。 こ の ライ ブラ リ を 使え ば , 
WonderSwanColor 上 で カラ フル な 表示 を 行う プロ グラ ム が 作成 で きる わけ で す 。 

本 章 で は , 2000 年 12 月 24 日 に 提供 が 開始 され た WonderWitch カ ラー ライ ブラ リ を 使 
っ て , カラ フル な 表示 を 行う プロ グラ ム を 作成 し て み ま し ょ う 。 


人 カラ ー ラ イブ ラリ を 手 に 入れ る 


プロ グラ ム を 始め る 前 に や ら な けれ ば な ら な い の は , カラ ー ラ イブ ラリ の 入手 で す 。 
カラ ー ラ イブ ラリ を 手 に 入れ な けれ ば , カラ ー ラ イブ ラリ の 機能 を 使っ た プロ グラ ム 
は コン パイ ル で きま せん 。 

カラ ー ラ イブ ラリ は , サポ ー ト Web サ イト か ら ダ ウン ロー ド す る こと が で きま す 。 
ダウ ン ロ ー ド し た ら , 環境 を アッ プ デ ー ト する と き の よ うに , PC 上 の 環境 に 対し て イ 
ンス トー ル を 実行 し ます 。 ア ッ プ デー ト の と き と 同 じ よ うに , 自分 の 変更 し た ファ イ 
ル が , 上 書き され て し まわ な いよ うに 注意 し まし ょ う 。 

また , カラ ー 対 応 の プロ グラ ム を 正しく 動作 きせ る に は , OS8 の アッ プ グ レー ド を 行 
っ て くだ さい (p.23 参 照 )。2001 年 3 月 1 日 時 点 で , カラ ー ラ イブ ラリ は 最新 版 ア ッ プ デ 
ー ト “WWUpdate20010207.exe” に 含ま れ て いま す 。 ア ッ プ デー ト を 行え ば , カラ ー 
ライ ブラ リ も イン スト ー ル され ます 。 


29 カラ ー ラ イブ ラリ の マニ ュ ア ル を 読む 


カラ ー ラ イブ ラリ を イン スト ー ル し た ら , カラ ー ラ イブ ラリ に 関す る 資料 を 読み ま 
し ょ う 。 家電 製品 と は 違い , マニ ュ ア ル を 読ま な けれ ば , な に ひと つ 理 解す る こと は 
で きま せん 。 

WonderWitch を イン スト ー ル し た ディ レク トリ 以下 の doc\color\index.htm を 読み ま 
し ょ う 。 ここ に 記さ れ た 情報 を 基 に 。 カ ラー ライ プラ リ を 便 う こと に な り ま す 。 
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3 カラ ー ラ イブ ラリ の 和 機 能 


WonderSwanColor に は , 従来 の グレ ー ス ケー ル を 表現 する 仕組 み の ほ か に , カラ ー 
を 表現 する た め の 仕組 み が , 3 種類 追加 され て いま す 。 こ の 都合 4 種類 の 表現 方 法 を , 
プロ グラ ム か ら 切 り 准 えて 使え る よう に な っ て いま す 。 

追加 され た 表現 方 法 (画面 モー ド ) は , 4 色 カ ラー モー ド , 16 色 カラ ー モ ー ド , 16 色 
カラ ー パ ッ ク ト モー ド の 3 つ で , カラ ー ラ イブ ラリ に は , これ ら の 画面 モー ド で 表示 を 
行う た め の 関 数 が 追加 され て いま す (Table 10-1) 。 


Table 10-1 画面 モー ド 


本 


| ウレ ー ス ケー ル 介 カ ラー モー ド | 


アレ ー メ ケー ル | 4096 色 中 4096 色 中 , 

同時 発色 数 16 麻 調 中 。8 色 8X4 十 8X3 十 1* | 16X15+1" 同左 
AA ー57 色 241 色 
由 pa1ette Se wwC Dalett@e 

パレ ッ ト の 設定 Sa 本 ー | 同左 同左 

co1or ( ) Se co1or () | 

Font se Co1 wwC font se 

_set_ 二 0 に 

キャ ラク タ の 登録 8 同左 | coloraatao 同左 
1 ドッ ト あ た り に に 
和 2 ビッ ト 同左 2: ト 同左 
1 キャ ラク タ あ た | 5 「 敵 共 0 
り に 必要 な 情報 量 | 「「 還 隊 旨 則 


ボボ ニク ゲー カラ ニー 
4 色 カ ラー モー ド は , グレ ー ス ケー ル の 画面 モー ド に 色 を つけ られ る よう に し た も の 
で , 従来 の WonderSwan 用 に 作成 され た プロ グラ ム を 簡単 に カラ ー 化 する こと が で きま 
す 。 従来 の 画面 モー ド で は , パレ ッ ト 内 の 4 色 を , グレ ー ス ケー ル 8 色 の 中 か ら 選 ん で 
いま し た が , 4 色 カ ラー モー ド で は , パレ ッ ト 内 の 1 色 1 色 に 対し て , 直接 RGB 値 を 指定 
し て や る こと が で きま す 。WonderSwan の パレ ッ ト は , 全部 で 16 本 あり , その うち 8 本 
は 透過 色 を も つた め 実 質 3 色 と な っ て いま すか ら , 8※X4 十 8X3 十 ボー ダー カラ ーー57 人 色 
を パレ ッ ト 全 体 で 使え を る こと に な り ま す 。 
16 色 カラ ー モ ー ド , 16 色 カラ ー パ ッ ク ト モー ド で は , さら に 和 柔 軸 な カラ ー 表 示 を 行 
うた め に , 1 パレ ッ ト あ た り 16 色 に パレ ッ ト が 拡張 され て いま す 。2 つ の モー ド の 表現 


カラ ー ラ イブ ラリ の 機能 規 255 


能力 は 同じ で , パレ ッ ト 内 の 人 色 番 号 を 指定 する 際 の デー タ 表 現 が 異な る だ け で す 。 

また , WonderSwanColor 上 で 実行 され た 場合 は カラ ー で 表示 し , WonderSwan 上 で 実 
行き れ た 場合 は 従来 F ぜ だ おり グレ ー ス ケー ル で 素 示す る よう に し た り , 
WonderSwanColor 上 で な いと メッ セー ジ を 出し て 終了 する よう な プロ グラ ム を 作成 で 
きる よう に , 現在 プロ グラ ム が 動作 し て いる の が WonderSwanColor 上 か , WonderSwan 
上 か を 調べ る 関数 も 追加 され て いま す 。 


欠 4 色 カ ラー モー ド を 使っ て みる 


それ で は , 4 色 カ ラー モー ド を 使っ た プロ グラ ム を 作っ て み ま し ょ う 。 


K パ test1.c を カラ ー 化 し た プロ グラ ム 


testlc.c (List 10-1) は , 2 章 の スプ ライ ト 表 示 サ ンプ ルプ ログ ラム testl.c (List 2-1) 
を 。 引 包 カ ラー モモ 一 ドド 用 に 沈 ラ ー 化 し た も の で ず 。 

testlc.c の よう に , カラ ー ラ イブ ラリ を 使用 し て いる プロ グラ ム を コン パイ ル す る に 
は , コン パイ ル 時 に 明示 的 に カラ ー ラ イブ ラリ を 与え て や る 必要 が あり ます 。 し た が 
っ て , testlcc を コン パイ ル す る に は 


> 1oc86 -o eg 上 1c.bin て es 上 1o .C C:\WwWitoh\11b\11bwwc . 11b 
の よう に , カラ ー ラ イブ ラリ を 指定 し な けれ ば な り ま せん (イン スト ー ル ディ レク ト 


リ が C:\WWitch の 場合 )。 注 意 し て くだ さい 。 


ai 由 上 上 光 test1c.bin の 実行 画面 
遼 


注 : 実機 で 実行 する と 色 が つい て 
いる の が わか り ま す 
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_List 10-1 testtc.c 


#1noc]1ude <sys/bios .h> 
#1nc1ude <sys/11Dbwwc .h> 


#1nc1ude "maru.h" 


void main() { 
unsigned char x =0,y= 0: 


邊 IE す ぁ 


/* WonderSwanColor か どう か 調べ る */ 
1E(wwc_ ge hardarch ( ) == HARDARCH WSC) { 
/* WonderSwanCo1or の 場合 
4 色 カ ラー モー ド に 設定 * ょ / 
WwC_ Se Co1or mode (COLOR MODE 4COLOR) : 
/* 12 番 パレ ッ ト を 赤 の グラ デー ショ ン に する 
1 つの パレ ッ ト の 4 色 を 設定 する の に wwc_pa1ette set co1or () を 
4 回 実行 する 必要 が ある 
12 番 パレ ッ ト で は 0 番 の 色 が 遊 過 色 に な る の で 設定 し て いな い 
赤 4 
wwC palette se co]or(12, 3, OxE00): 
/* 薄い 赤 */ 
wwC_palette se 上 col1or(12, 2, Oxf77): 
の | 目 人 2/ 
wwc palette se co1or(12, 1, Oxfff) 
1 
e1se 
/* WonderSwanColor で な か っ た 場合 , 12 番 パレ ッ ト を グレ ー ス ケー ル に する */ 
palette set co1or(12, 0x7300) 


disp1ay contro1 (DCM SPR) 

Sprite set range(0, 1): 

font _ set co1ordata(0, 1, bmp maru) : 

Sprtte set char(0, CFM SPR UPPER | (12 - 8) * 0x200 | 0): 
Sprite se て 1ocation(0, x, y): 


while(1) { 
1 = key presS Check() 
1f(1 g KEY START) 
break: 
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Function 10-1 カラ ー モ ー ド 関連 の 関数 


unS1gned wwC_get_hardarch (Vo1d) : 


返 値 
機能 


HARDARCH WS, HARDARCH WSC の いずれ か 


現在 プロ グラ ム が 動作 中 の ハー ドウ ェ ア が , カラ ー か そう で な いか を 調べ ます 。 こ 
の 関数 を 利用 し て , カラ ー/ モ ノ ク ロ 両 対応 の プロ グラ ム を 作成 で きま す 。 
WonderSwanColor だ っ た 場合 は BARDARCH WSC が , そう で な い 場 合 は HARDARCH WS 
が 得 ら れ ま す 。 


ung1gned wwC_set_co1or_mode (uns1grned Ode) : 


引数 
返 人 
能 


moge:・ シンボル (Table A) の 値 
シン ボル (Table A) の 値 


引数 oge で 指定 し た カラ ー モ ー ド に , 画面 モー ド を 設定 し ます 。 画面 モー ド の 設定 
に 成功 し た 場合 , 新しい 画面 モー ド を 表す シン ボル が 返り ます 。 


TableA mode, 返 値 の と る 値 


| COLOR _MODE GRAYSCALE | 従来 の モノ クロ 画面 

| COLOR_MODE 4COLOR 4 色 カ ラー モー ド 
COLOR_MODE 16COLOR 16 色 カラ ー モ ー ド 
COLOR MODE 16PACKED 16 公 ラ ラー パッ クト ドモ ー ド 


void wwc_pa1ette_Set_cCo1or (unS1ned の ag76 と と G_nO, unS1qned 了 nQer, 


引数 


機能 


unS1qned と の 9D り ) 


paretEe no: 設定 する パレ ッ ト 番 号 
ngex : 設定 する 色 番 号 
だ の ね 色情 報 


従来 の 画面 モー ド 以 外 の と き に 表示 に 使用 する パレ ッ ト を 設定 し ます 。 
palette set co1or() の カラ ー 版 で す 。 引数 に は , 設定 し た い パ レッ ト を 
parecce no, 設定 し た い 色 番号 を ngex, 設定 し た い 色 を RGB 値 で rg ゎ に 指定 し 
ます 。 し た が っ て , 4 色 カ ラー モー ド の と き は , 1 つの パレ ッ ト を 設定 する の に 4 回 , 
16 色 カラ ー モ ー ド の と き は , 1 つの パレ ッ ト を 設定 する の に 16 回 . それ ぞ れ 呼び だ す 
必要 が あり ます 。 色 情報 を 与え る RGB 値 は , 各色 4 ビッ ト で 階 調 を 表現 し た も の で , 
都合 12 ビ ッ ト に な り ま す 。 並び は 上 位 か ら RGB の 順 で 並び ます 。 


これ ら の 関数 は <sys/ibwwc.h> に 定義 きれ て いま す 。 ま た , カラ ー ラ イブ ラリ を 明示 的 に リン ク し な 
けれ ば 使用 で きま せん 。 
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ジ 謝 プロ グラ ム の ポイ ント 

4 色 カ ラー モー ド を 利用 する た め に は , まず wwc set co1or mode() で 画面 モー ド 
を 4 色 カ ラー モー ド に 切り 替え な けれ ば な り ま せん 。 切り 替え を 行わ な いと , 従来 の 画 
面 モ ー ド で の 動作 に な り ま す の で , カラ ー で の 表示 は 行え を ませ ん 。 

画面 モー ド を 切り 替え た ら , 表示 に 使用 する パレ ッ ト に , 色 を 設定 し ます 。 従来 の 
画面 モー ド で は , pa1ette set co1or() で パレ ッ ト 内 の 4 色 を 1 度 に 指定 し て いま し 
た が , 4 色 カ ラー モー ド で は , wwc pa1ette set co1or () を 使っ て , パレ ッ ト 内 の 
4 色 を , 1 つ 1 つ 設 定 し て いく 必要 が あり ます 。 

また , testlc.c で は , WonderSwanColor 上 で な い 場 合 に モノ クロ 表示 を 行う よう に 処 
理 を 分 ける た め , wwc get hargarch () を 使っ て 動作 し て いる WonderSwan の 種類 を 
調べ , 処理 の 分 岐 を 行っ て いま す 。 

4 色 カ ラー モー ド を 使え ば , 第 2 章 か ら 第 8 章 ま で の プロ グラ ム を , 簡単 に カラ ー 化 する こ 
と が で きま す 。 基本 的 に は , pa1ette set co1or () を wwc palette set co1or () 
に 置き 換え る こと で 実現 で きる で し ょ う 。 こ の と き , な る べく な ら wwc get hardarch () 
を 使っ て WonderSwanColor 上 で は カラ ー 表 示 , WonderWitch 上 で は モノ クロ 表示 と い 
っ た プロ グラ ム を 作成 する よう に し , 環境 に 左右 され ず に 動く も の を 作る よう に 心 が 
げ ま しょう 。 

た と えば , 第 5 章 で 作成 し た 反射 ゲー ム を カラ ー 化 する に は , List 10-2 の 部 分 を , 
List 10.3 の よう に 修正 する だ け で す 。 


List 10-2 第 3 章 の 反射 ゲー ム の main() 


void main() { 
・ (中 略 ) 
/* スプ ライ ト で 欠 を 表示 */ 
display contro1 (DCM SPR | DCM SCR1) 
Sprite se range(0, 1): 
palette set color(12, Ox7300) : 
Sprite set char(0, CFM SPR UPPER | (12 - 8) * Ox200 | 9): 
Sprite set 1oocation(0, 224, 144): 
・ (後略 ) 
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List 10-3 WonderSwanColor 対 応 の 反射 ゲー ム の main0 


yo1d main() { 


(中 略 ) 


/* WonderSwanCo1or か どう か 調べ る */ 
1f (wwc_ ge て hardaroh () == HARDARCH WSC) { 
/* WonderSwanCo1or の 場合 
4 色 カ ラー モー ド に 設定 */ 
wwcC se 上 co1or mode(COLOR_MODE 4COLOR) : 
/* 12 番 パレ ッ ト を 赤 の グラ デー ショ ン に する 
1 つの パレ ッ ト の 4 色 を 設定 する の に wwc pa1ette set co1or () を 
4 回 実行 する 必要 が ある 
12 番 パレ ッ ト で は 0 番 の 色 が 遮 過 色 に な る の で 設定 し て いな い 
赤 は 
wwc palette se co1or(12, 3, OxE00)。 
/* 薄い 赤 */ 
wwC_palette set color(12, 2, Oxf77): 
6. 症 7 
wwcC_ palette se col1or(12, 1, OxffFf): 
/* 0 番 パ レッ ト を 緑 の グ ラ デ ー シ ョ ン に する 
1 つの パレ ッ ト の 4 人 色 を 設定 する の に wwc pa1ette set co1or () を 
4 回 実行 する 必要 が ある 
緑 2 
wwc palette se co1or(0, 3, OxfO): 
/* 薄い 緑 */ 
wwc palette se col1or(0, 2, Ox5f5) 
/* も っ と 蘭 い 緑 */ 
wwC_palette se oo1or(0, 1, 0xafa) : 
上 自 7 
WwC_Palette se Color(0, 0, Oxfff) : 


} 

e1Se 
/* WonderSwanColor で な か っ た 場合 , 12 番 パレ ッ ト を グレ ー ス ケー ル に する */ 
palette se co1or(12, Ox7300): 


/* スプ ライ ト で 欠 を 表示 */ 

display contro1 (DCM SPR | DCM SCR1) 

Sprite se range(0, 1): 

Sprite se て char(0, CFM SPR UPPER | (12 - 8) * Ox200 | 3): 
Sprite se 1ocation(0, 224, 144): 


(後略 ) 
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2 16 色 カラ ー モ ー ド を 使っ て みる 


次 に , 16 色 カラ ー モ ー ド を 使っ た プロ グラ ム を 作っ て み ま し ょ う 。 


7 仙 : 16 色 カラ ー の リソー ス デ ー タ を 準備 する 


16 色 カラ ー の 画像 リソー ス を 作成 する た め に , bmpcnv.exe を 利用 し ます 。 た だ し , 
バー ジョ ン が 2.00 以 降 で ある 必要 が あり ます 。 


> Drmpcn 
を 実行 し て , バー ジョ ン を 確認 し て くだ さい 。bmpcnv.exe 2.00 以 降 で は , 従来 の 機能 
に 加え , 16 色 で 描か れ た 画像 を , WonderSwanColor 上 で 利用 で きる リソー ス 形 式 に 変 


換 す る 機能 が 追加 され て いま す 。16 色 (4 ビッ ト ) 形式 の bmp フ ァイル inuc.bmp を 
> bmpcny -m 1nuc.bmp 


と し て 与え る と , WonderSwanColor 上 で 利用 で きる inuc.fr を 作成 し ます 。 


: 徐 : 16 色 カラ ー の リソー ス デー タ を 表示 する プロ グラ ム 


test2c.c (List 10-4) は , 16 人 色 形 式 の bmp フ ァイル inuc.bmp, bachyo.bmp を 変換 し た 
inuc.fr と bachyo.fr を 使っ て , 画像 の 表示 を 行う プロ グラ ム で す 。 
inuc.fr。 bachyo.fr を 作っ た ら , プロ グラ ム 本 体 を 


> 1oc86 -o es2c.bin test2c.C C:\WwWitch\11b\11bwwc . 11b 


と し て コン パイ ルレ し , test2c.bin,。inuc.fr, bachyo. 失 r を rom0 領 域 に 転送 し 実行 し て みて 
くだ さい 。 


List 10-4 test2c.c 


#1nc1ude <sys/Focn] .h> 
#1nc1ude <sys/Dios .h> 
#inc1ude <sys/11bwwc .h> 


#1nol1ude く resourCe .h> 


void main() { 
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BYTE Far *FPg 


も > 


disp1ay contro1 (DCM SCR1 ) 
text se screen (SCREEN1 ) 


text screern in1 て (): 


/* wonderSwanColor か どう か 調べ る 
wonderSwanColor で な い 場 合 , 終了 */ 
1iF(wwc get hardarch() != HARDARCH _WSC) { 
text put string(0, 0, 
"この プロ グラ ム は ワン ダー スワ ンカ ラー で な いと 実行 で きま せん ") : 
key_ wait() 
return: 


/* 16 色 カラ ー モ ー ド に 設定 */ 
wwc se 上 color mode(COLOR_MODE 16COLOR) 


/* inuc .fr の デー タ を 使う 
カラ ー 画 像 の デー タ の 場合 , キャラ クタ 情報 の 前 に 
32 バ イト の パレ ッ ト 情 報 が つい て いる */ 
grp = mmap("/rom0/1inuc.fr") : 
wwo Font set co1ordata(8, 28 * 18, grp + sizeof(res image ) + 32): 


/* パレ ッ ト を 設定 */ 
For( 和 ユー 0: エ で 16: 1 せ ]) 
wwc palette set co1or(0, 1, 
*( (WORD far *) (grp + sizeoF(res image 上 ) ) + 1)): 


key_wait(): 


/* bachyo.fEr の デー タ を 使う */ 
grp = mmap("/rom0/bachyo. fr"): 
wwC Font se co1ordata(8, 28 * 18, grp + Ss1zeofF(res imaqe 上 ) + 32): 
ま QP( ふ ニ Oz きす で 16: も キキ ) 
wwcC _ palette set color(0, ふ , 
* ( (NORD Far *) (grp + sizeof(res image ) ) + 1)): 


key_wai(): 
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Mg.10-2) test2c. PIG 宏和 画 


注 : 実機 で 実行 する と 色 が つい て 
いる の が わか り ま す 


Function 10-2 16 色 カラ ー モ ー ド 関連 の 関数 


Yo1d wwc_fFont_set_co1ordata (uns1grned C カ a ア カロ の , umS1qgrmed ご カ a ア と COun と , 
Vo1d Fa *a と ga の): 


引数 = cnar no: 設 定 を 開始 する キャ ラク タテ ー ブ ル 番号 
c ヵ ar copn と た: 設定 する 個数 
*qata p・ 設 定 に 使用 する 画像 デー タ へ の ポイ ンタ 


機能 16 色 カラ ー/16 色 カラ ー パ ッ ク ト モー ド の と き に 表示 に 使用 する 画像 デー タ を キャ ラ 
ググ デー アル ( 登録 し ます 。 Font set co1ordata () の カラ ー 版 で す 。 引 数 の 構 
造 が まっ た く 同 じ な の で , 気 に せ ず に 同じ よう に 使っ て くだ さい 。16 色 カラ ー/16 色 
人 SHO ょ の で , 
8X8 ド ッ ト の 1 キャ ラク タ あ た り の デー タ 量 が 32 バ イト に な り ま す 。 


この 関数 は <sys/libwwc.h> に 定義 SGS れ て いま す 。 カ ラー ライ ブラ リ を 明示 的 に リン ク し な けれ ば 使用 
で きま せん 。 


= 衝 プロ グラ ム の ボイン ト 

リソー ス 形 式 の 16 色 カラ ー 画 像 デー タ で は , 先頭 の ヘッ ダ 部 分 は 4 階 調 の デー タ と 同 
じ で す が , 実 デ ー タ 部 の 先頭 32 バ イト が , パレ ッ ト に 設定 し な けれ ば な ら な い 色 情報 
UN 0 
定 を 行う こと に な り , キャ ラク タテ ー ブ ル に 登録 する デー タ は , 実 デ ー タ 部 の 先頭 32 
バイ ト を 読み 飛ば し た も の に な り ま す 。 

16 色 カラ ー モ ー ド で は , すべ て の パレ ッ ト に お いて 0 番 日 の 色 が 透過 色 と な る の で , 
実際 に は 15 色 し か 有効 に で きま せん 。 で は , な ぜ こ の プロ グラ ム で 16 色 が 表示 で き て 
いる の か と いう と , disp1ay contro1 () で 画面 の 1 番 奥 の 色 (ボー ダー カラ ー) を 0 
番 パ レッ ト の 0 番 色 に 設定 し て いる か ら な の で す 。 16 色 モー ド で 使用 する 
disp1ay contro1 () で は , 引数 の 上 位 8 ビ ッ ト が パレ ッ ト 番 号 と 色 番 号 を 指定 する 意 
味 を も つの で , 上 位 8 ビ ッ ト を 0 と し て 呼 尽 と , ボー ダー カラ ー が 0 番 パ レッ ト の 0 番 色 
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に な り ま す 。 

16 色 カラ ー モ ー ド で の 画像 表示 プロ グラ ム で も , 従来 の 画面 モー ド で の プロ グラ ム 
と 同じ よう な 手順 で 画面 操作 を 行っ て いま す 。 ま た , 新規 に 導入 され る 関数 も , その 
ほとん ど が 従来 あっ た 関数 の カラ ー 版 に すぎ ませ ん 。 た と えば , 
wwc Font set co1ordata () と font set co1ordata () を 比較 し て みて くだ さ 
い 。 そ うし た こと に 気がつけ ば , さほど 悩ま ず に すむ で し ょ う 。 

16 色 カラ ー モ ー ド を 利用 する こと に よっ て , 画面 いっ ぱい に 表示 する よう な 画像 の 
クオ リティ は 格段 に 上 が り ま す 。 第 7 章 の ADV の プロ グラ ム を 16 色 カラ ー 化 すれ ば , よ 
り 魅力 的 な ADV を 作れ る よう に な る で し ょ う 。16 色 の 画像 デー タ を な か な か 作成 で き 
な いと き は , デジ カメ で と っ た フル カラ ー の 画像 デー タ を 減色 ツー ル (添付 CD-ROM 
に 付属 の 減色 教室 な ど ) で 変換 し て 利用 する の も よい で すね 。 た だ し , 現在 の カラ ー 
ライ ブラ リ で は , 16 色 カラ ー (パッ クト ) モー ド で テキ スト 表示 関数 群 が 利用 で きま 
せん の で , フォ ント デー タ を 取得 し て き て , 画面 上 で の 配置 を 自前 で 管理 する よう な 
工夫 が 必要 に な り ま す 。 

ちな み に , ここ で 利用 し て いる リソー ス 形 式 に 関す る 情報 は , WonderWitch を イン 
スト ー ル し た ディ レク トリ 以下 の docwappendix\toolext.htm に 詳し く 書 いて あり ます 。 


0) 16 色 カラ ー モ ー ド の リソー ス デ ー タ の フォ ー マ ッ ト 


従来 の フォ ー マ ッ ト 16 色 カラ ー モ ー ド の フォ ー マ ッ ト 


| res 1 構造 体 | 
16 バ イト 0 


res_image_{ 構造 体 res_image_{ 構造 体 


inuc.fr パレ ッ ト 用 デー タ 132 バ イト 


画像 デー タ 本 体 


画像 デー タ 本 体 
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ワン ター ウィ ッ チ 開 発 者 に 聞く 


21 世 紀 の 
ラプ CEA ング 


- 町 田 市 ( 有 ) キュ ー ト 社内 に て 


治 園田 修司 聞き 手 長久 勝 
( 有 ) キュ ー ト ( 有 ) キュ ー ト 


代表 取締 役 社長 代表 取締 役 副 社長 


携帯 ゲー ム 機 WonderSwan 用 の プロ グラ ミン グ ツ ー ル 
「WonderWitch| を 開発 し た 佐藤 治 氏 と 園田 修司 の お 2 人 に , 
( 有 ) キ ュー ト 社 内 で WonderWitch の 開発 の 経緯 と 今後 の 予定 , 
ホビ ー プ ログ ラミ ング の 方 向 に つい て , お 話 を 伺い まし た 。 


長久 勝 (以下 長久 ) : WonderWitch が 発売 こ で 「WonderWitch 開 発 側 で は こう 考え て 
され , メー リン グリ スト や Web ペ ー ジ な ど いる 」 と いう 話 を 聞か せ て いた だ けれ ば と 
で 活発 に 情報 を 発信 し て いる 人 も いて , か 思い ます 。 

な り 盛 りあ が っ て いま すね 。DOS 上 で プロ 

グラ ミン グ を し て いた , 今 で は 少し 高い 年 開発 経緯 に つい て 


齢 摩 の 人 た ち が 「 音 取っ た 杵 柄 ] よろ し く 
EN 半 7 長久 : まず は , 開発 経緯 か ら 伺い ます 。 


だ 気 に な る の が , 初心 者 の た め の 道 が 整備 

SS 佐藤 治 (以下 佐藤 ) : |「 こ ん な の が あっ た 
ら お も し ろ い よね | っ て 思っ て いた 人 た ち 

園田 修司 (以下 園田 ) : な いで すね …… o が 0 た また ま 会 っ て 話 を する 機 

が あり まし た 。 

長久 : 学校 な ど で ANSI て C レ ベル の 勉強 を し 

た 人 や , Windows 上 の IDE で プロ グラ ミン グ 園田 : WonderSwan の 発売 元 で ある バン ダイ 

する の が 当たり 前 な 世代 の 人 で 「 せ っ か く も WonderWitch み た いな も の が あっ た ら お 

WonderWitch が 出 た ん だ か ら ゲ ー ム を 作り も しろい と 感じ て いた よう で , WonderSwan 

た い 」 と いう 人 も 多く いる は ず で す が , そ の 商品 展開 を 考え て いく うえ で , ゲー ム じ 

うい う 初 心 者 は , 今 の WonderWitch で 与え ゃ な い , 別 の アプ ロー チ が で き な い か , た 

らち れ た も の を 見 で と ま ど う と 思い ます 。 そ と えば 「 プ ログ ラミ ング が で きた ら お も し 
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ろ い ね | と いう の が あっ た よう で す 。 そこ 
で 一 致し て や ろう と いう こと に な り ま し た 。 


佐藤 : WonderSwan の 本 道 で ある ゲー ム 機 以 
外 の 方 向 性 を 考え た 場合 に , その 1 つと し て 
屋外 で 利用 で きる 安価 な ムコ ンピュータ と し 
て の 利点 が あり ます 。 た と えば , ホン モノ 
の 魚群 探知 機 を 数 十 万 円 出し て 買う と シャ 
レ で は 済ま な い の で 普通 は 買え ませ ん 。 で 
も WonderSswan と ワン ダー ソナ ー を 合わ せ て 
2 万 円 ざら い だ っ た ら 手 が 届き ます 。 そ ん な 
「1 つ 1 つの 市 場 規模 は 小さ いけ れ ど も | と い 
う 分 野 が すご く た く さ ん あり ます 。 で も バ 
ンダ イ が や る 場合 , そこ まで 本 流 の ゲー ム 
で は な いと ころ に パワ ー を 割 け る か と いう 
ど 。 ちょ っ 吾 雌 し いよ う で すま 。 そこで ,、 そ 
うい うこ と を 本 当 に や り た い 人 た ち が , 自 
分 の 手 で 実現 する た め の 素材 を , メタ な 形 
で と いう か , フレ キシ ビリ ティ の ある 形 で 
提供 し て あげ れ ば どう だ ろう と 考え まし た 。 
適切 な 素材 が あれ ば , 自分 で ハー ドウ ェ ア 
を 工作 し た り , プロ グラ ム を 作る と いう 人 
は いっ ぱい いる わけ で す 。 そ うい う 人 た ち 
に 開放 し て あげ る こと で , いろ ん な こと が 
起こ る は ず で す 。 た と えば , ロボ カッ プ 
(自律 動作 する ロボ ッ ト に サッ カー の 試合 を 
させ る 国際 的 な 競技 会 ) の エン ジン に 
WonderSwan 十 WonderWitch が 載っ て いた ら 
お も し ろ い は ず で す 。 普 通 , 1 合 3040 万 円 
も する ロボ ッ ト を 作っ て いる な か で , バル 
サ と か を 切っ て 一 番 上 に WonderSwan が 載っ 
か っ て 1 台 1 万 円 と か で サッ カー を し て いる 
な が んで 。 すご さく お も し る ぷわ けり で す よ 。 で 
も そう いう こと を や り た いけ ど , や る た め 
の 素材 を 持っ て いな いと いう 人 た ち が す ご 
ぐ 47Sc く さん やま すま を うい うと き に 
WonderSwan は , ゲー ム 機 だ と いう こと を 捨 
て て 考え る と , 画面 が つい て CPU が 載っ て 


音 も 鳴る 乾電池 1 個 で 動く 1 つの コン ピュ ー 
タ で す 。 そ の CPU は , 一 音 前 に ば くら が 
DOS 時 代 に いじ っ て いた コン ピュ ー タ その 
まま で , 昔 は 30 一 40 万 円 し て いた も の で す 。 
それ が 3 一 4 千 円 で 手 に 入り ます 。 


園田 : 価格 で いう と 約 1/100 で す よ ね 。 


佐藤 : 30 万 円 の 機械 で は これ は で きま せん 。 
(前 述 の ロボ ッ ト で ) サッ カー チー ム を 作ろ 
うと 思っ た ら , 11 台 必要 で すか ら 「PC- 
9801 が 11 合 いる , 買え ね ー な 一 と あき ら 
め て し まい ます が , 3 千 円 の が 11 個 だ っ た ら 
買え そう な レベ ル に な り ま す 。 単純 に 価格 
が 1/100 に な っ た だ け で も , 使い 道 が すご く 
広がり ます し , その 時 代 に PC-9801 を 使っ 
て 何 か を や り た か っ た 人 た ち に と っ て は , 
x86 系 は , ある 意味 で な じみ の ある アー キテ 
クチ ャ で す 。 こ れ に つい て は 匠 否 両論 あり 
ます が , 「 そ れ は WonderSwan が x86 系 を 選ん 
だ 時 点 で 宿命 付け られ て し まっ た の だ か ら , 
それ は 受容 し まし ょ う 。 代 わりに , x86 系 で 
ある こと の メリ ッ ト は な ん だ ろう 」 と 考え 
て み ま し た 。 そ うす る と 長久 さん が お っ し 
ゃ っ た よう に 「 昔 取っ た 杵 柄 | で , 過去 の 
膨大 な 資産 が ある だ ろう と 考え られ ます 。 
それ に 「 作 り た いん だ けど , 最近 の や つ は 
な ん か よく わか ん な い ], 「 簡 単に な っ た み 
た い だ け ど , 俺 達 に は 手 が 出 せな い 」, 「 昔 
は よかっ た ね 」 と いう 人 の 力も 眠っ て いる 
は ず で す 。 そこで , 特定 市 場 向け に 何 か を 
作っ て いく 人 の ツー ル と し て WonderWitch 
を 提供 し まし た 。 「 死 蔵 さ まれ て いる 資産 と マ 
ン パ ワー (モチ ベー ショ ン ) を 生か す 場 と 
し て WonderWitch を 使っ て くだ きい 。 何 か 
を 作り た い , それ を 認め られ た い , 人 に 見 
せ て あげ た いと いう 欲望 を 満た す た め の フ 
ィ ー ル ド を WonderWitch が 用 意 し ます | と 
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いう こと で す 。 欲望 の は け 口 の 1 つと し て , 
プロ グラ ミン グ が ある か ら , それ を 解放 し 
て あげ る こと を 考え た と き , WonderSwan の 
場合 は WonderWitch と し て 生ま れ た こと に 
な り ま す 。 


長久 : ぼく が WonderWitch の 話 を 最初 に 聞 
いた の は 確か 1999 年 の 秋 だ っ た と 思い ます 
が , 「 や る な バン ダイ 」 と 思う 反面 , 「 売 れ 
る の か バン ダイ , いや , オレ は 買う けど ] 
と いう の が 感想 で し た 。 


佐藤 : |「 こ ん な も の 作っ て 誰が 買う ん だ ろ 
う 」 と は , 発売 前 は みん な 思っ て まし た よ 
ね ( 笑 )。「 オ レ は 買う けど 俺 以外 は 誰が 買 
うん だ ろう | と みん な 思っ て いて , フタ を 
開け た ら , そう 思っ て る 人 が 数 千 人 いた と 
いう ( 笑 )。 で も , ほぼ くら は そう いう 人 が 多 
くい る と 確信 し て いま し た 。 ほ ぼく や 園田 が 
「 そ うい う の が あっ た ら 買 う 」], 「 ぼ くら が 買 
う 」 と いう こと は , ぽく ら と 同時 代 に コン 
ピュ ー タ と つき 合っ て きた 過去 の ある 人 は , 
買う だ ろう と 思っ て いま し た 。 ぼ くら は あ 
の 時 代 の プロ グラ ミン グ の 楽し きみ た いな 
の を 肌 で 感じ て 知っ て いる 世代 , そう いう 
の で 盛り あがっ て た 人 た ちや , そう いう の 
が 得意 だ っ た 人 た ちがい た の を 知っ て いま 
す 。 そ うい う ぼ くら の 感覚 で は , これ を 出 
し た と き に 乗っ て くれ る , 「 こ れ は 楽し い 」 
と 言っ て くれ る , 苦 を 思い 出す だ け で ゃ 単 
純 に 楽し め る 人 た ち が す ご くだ たくさ ん いる 
の が わか っ て いま し た 。 あ と は そう いう 人 
た ち が 手 を 出せ る 値段 は いく ら ぐ らい な の 
か と いう 問題 し か 残っ て な いわ け で す 。 市 
場 規 模 が ある 程度 不透明 だ っ た と し て も , 
そう いう 令 求 が ある 以上 , ビジ ネス と し て 
成立 する と みて まし た 。 
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WonderWitch が な せ 今 の 形 に な っ た の か ? 


佐藤 : あと は どこ に 落し どこ ろ を も っ て く 
る か で す 。「 作 りす ぎ な い , 与え すき な い , 
そろ えす ぎ な い 」| と いう 話 で す 。DOS 時 代 
に は 道具 な ん て も の は 足り な い の が 当たり 
前 で , 足り な い 道 具 を 作る の が 楽し いと い 
う 人 た ちがい た わけ で す 。 そ うい う 人 た ち 
を 楽し ませ る , まあ ズル いや り 方 で す が , 
そう や っ て バラ ンス を 取っ て 出し た の が , 
今 の 形 で す 。 そ の あたり の 感覚 と いう の は , 
あの 時 代 を 経験 し た 人 に し か わか ら な い , 
欠け て る こと が よい の だ と いう 感覚 は , あ 
る こと が 当たり 前 の 今 の 人 た ち に は 絶対 わ 
か ら な いと は 思い ます 。 よ く 「 何 も な いじ 
ゃ ん 」 と 怒ら れ ま す が , 「 な くっ て いい ん だ 
ょ , そん な の 作れ る か ら 」 と いう スタ ンス 
な ん で す 。 ぼ くら と し て は そう いう 楽し み 
方 を 知っ て ほし い の で す 。 


園田 : 述 に そう いう 足り な い ツ ー ル を 作る 
た め の 情 報 は 十分 に 与え て ある し , 
WonderSwan で で きる こと を WonderWitch で 
隠ぺい する よう な こと は し て いま せん 。 リ 
ッ チ な ライ ブラ リ と か 簡単 な ウー ル は つい 
て な いけ れ ど も , で きる こと を 全部 見 せ て 
あげ る こと で , ツー ル を 作る 人 た ち に スト 
レス に な ら な いよ うに し て あり ます 。 まず 
ツー ル を 作る 人 た ちがい て , その 人 た ち は 
ツー ル 作 り が 楽し いん で す , ほぼ ほ く な ん か も 
わり と そう な ん で す が ……。 ち ょ っ と 作っ 
て みた けど どう ? と いう 人 た ちがい る の 
で , いき な り リ ッ チ な も の を 与え る と , そ 
の 楽し み が 奪 われ て し まい ます 。 そ の あと 
に , その 人 た ちの 成果 を 使っ て 「 こ れ は 便 
利 だ , これ を 使う と ぼく に も で きそう だ ]」 
と いう 和信 た ち が 出 て き て , その 人 た ち が 活 


躍 で きる よう に な り ま す 。 ツ ー ル の 人 た ち 
の 成果 を 基 に , 敷居 が 高い な あと 思っ て い 
た 人 た ち が 参 入 で き , 楽し め る よう に な っ 
て いき ます 。 最初 か ら リ ッ チ だ と , そう い 
う 流 れ が 生ま れ な いし , 初心 者 の 人 た ち は 
何 が 難し か っ た の か と いう こと に も 気づか 
ず 便 利 だ 便利 だ と 言う だ け で , ぼく ら が 楽 
し か っ た プロ グラ ミン グ の 楽し き と か 足り 
な いも の を 自分 た ち で 作っ て 便利 に し て い 
く 楽 し み が 得 られ な い は ず で す 。 


WonderWitch が 創る 
ホビ ー プ ログ ラミ ング の 世界 


長久 : WonderWitch を 見 る と 「 ホ ビー]| と 
いう キー ワー ド が 出 て きま す が , その 言葉 
を 久しぶり に 聞い た な と 思い まし た 。 
Windows9S 以 降 , ここ 3 年 , 「 ホ ビー」 は な 
か っ た と 思っ て いま す 。 


佐藤 : プ ログ ラミ ング の 領域 で 。 ホビ ー と 
いう の は , も うす で に な く な っ た の で す 。 
それ は マニ ュ ア ル の 前 書き に も 書き まし た 
が , ぽく ら の 頭 の 中 で は WonderWitch と い 
う の が ホビ ー と し て の プロ グラ ミン グ を す 
る た め の プ ラッ ト フ ォ ー ム だ と 位置 付け て 
いま す 。 ぽ くら が プロ グラ ミン グ に 何 を 見 
よう と し て いる か と いう と , 「 楽 し む | と い 
うと ころ , つま り ホ ビー の 部 分 が 絶対 残っ 
て いる と 思っ て いま す 。 仕事 と し て や っ て 
る 場合 で も どこ か で 楽し め る と ころ が 必ず 
残っ て いる の に , そう いう の を 知ら な いで 
体 事 で プロ グラ ミン グ し て いた り 。 どこが 
楽し い の か わか ら な い 人 た ち が あ まり に も 
増え すぎ て いま す 。 今 の プロ グラ ミン グ 環 
境 で は , そう いう と ころ に 目 を 向け る チャ 
ンス すら な いで す よ ね 。 
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「 プ ログ ラミ ング の 領域 で 、 ホ ビー と いう の は , 
も うす で に な く な っ た の で す 。 それ を 復活 させ た 
い 」 (佐藤 治 氏 ) 


長久 : ソフ トウ ェ ア を 作る 仕事 の ニー ズ は 
最近 さら に 増え て いま す が , ぽく ら の 年 代 
の よう な 年 齢 層 の 高い 職業 プロ グラ マ は , 
中 高生 ぐら いか ら MSX と か PC-9801 と か 
X68000 と か , そう いう 機械 を ずっ と 触っ て 
き て , それ が お も し ろく て , その 延長 線上 
で 仕事 し て いる 人 た ち が 多 いと 思い ます 。 
で も , 今 の 若い 人 た ち で 職業 プロ グラ マ に 
な る 人 の 中 に は , そう いう 経路 を 通っ て 来 
て いな い 人 が 多く いま す 。 コ ンピュータ の 
専門 学校 に 入っ て プロ グラ ミン グ を 勉強 し 
よう , 将来 性 も ある だ ろう か ら …… で , 普 
通 は 2 年 制 な ん で す が , 入っ た と き に 「 初 め 
て Windows 触 り ま す ] と いう 人 も 多く いま 
す 。 私 た ちの 年 代 が 通っ て きた 「 自 分 で 試 
行 錯誤 し て 苦労 し て 泥臭い こと や りな が ら 
も , ちょ っ と お も し ろか っ た か ら 」| と は 居 
いま す 。 昔 の 中 高生 は , プロ グラ ム を 組ん 
だ か ら っ て お 金 に な る わけ で も , 成績 が よ 
く な る わけ で も な い の に , 何 か 作 っ て 動い 
た ら う れ し く て それ を 楽し ん で いた わけ で 
す 。 そ うい う の を 最近 の 人 た ち は , あん ま 
り 味 わん えん なくなっ て きた の か な と 思い ます 。 
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佐藤 : 今 , コ ンピュータ の こと を 考え る と , 
だ いた い Windows, PC 上 で 何 か や る こと に 
な り ま す よ ね 。 そ うす る と デバ イス が キー 
ボー ド だ っ た り マ ウス だ っ た り し て 。 あれ 
は ホビ ー と し て 楽し な た め の デ パイ ス で は 
あり ませ ん 。 遊び と し て みた 場合 , マウ ス 
が 自然 な イン タフ ェ イ ス で ある こと は ほ と 
ん な いで す 。 今 ま で マウ ス で や る ゲー ニム 
の 中 で お も し ろ い な あと 思っ た の は , エア 
ホッ ケー だ け で し た 。 標準 で 搭載 され て い 
る イン タフ ェ イ ス 自 体 が 遊ぶ た め の も の で 
は な いか ら だ と 思い ます 。 


長久 : PC は 仕事 を する た め の 機 械 で すね 。 


佐藤 : 中 高校 生 と か で プロ グラ ミン グ す る 
と いう の は どう 考え て も 遊ぶ た め に や る わ 
け で , 遊び 以外 の こと に 使う と し た ら , ク 
ラス で すご く 偉 そう に し て いる 「 ぼ ぽく ね, 
ちょ っ と 単語 帳 ソ フト を 作っ た ん だ , これ 
で 中 間 試 験 は バッ チリ だ よ ] と か そう いう 
人 ぐら いで ( 笑 )。 遊ぶ っ て こと が 何かと い 
うと , 自分 が ここ に いて , 差し 向かい に 人 
が いて , 「 ほ ら そ っ ち も っ て | と か いう 空間 
な ん で す 。 それに 今 は も う 遊 上 ぶた め の 道 具 
と し て GameBoy や WonderSwan あ る い は 
PlayStation が あり ます 。 PlayStation が あっ て , 
コン トロ ー ラ で 遊ぶ スタ イル が も う 確 立 し 
て いま す 。 それで は 中 高校 生 に PlayStation 
の ゲー ム が 作れ る か と な る と , どう で し ょ 
うか ? PlayStation で や ろう と する と , す 
ご いこ と が いろ いろ で き て , それ が で き て 
な いと PlayStation の ゲー ム と し て は ショ ボ 
く て ゲー ム を し て いる 気 に な り ま せん 。 こ 
れ ら は リッ チ す ぎる の で す 。 


長久 : 新た に Windows な どの プロ グラ ミン 
グ の 勉強 を 革 直 う と いう 人 が いて も , 今 は , 
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御 に イン ター ネッ ト な ど で す ご い ソ フト ウ 
ェ ア が シコ タマ 入手 で き て 簡単 に 使え て し 
まい ます 。 そ れ に PlayStaion2 で すご い エ フ 
ェクト と か 見 て し まう と , 今 の 自分 と の ギ 
ャ ッ プ が あま り に も 大 きす ぎ て , 本 当 に あ 
ん な の と 同じ こと が で きる よう に な る の か 
と いう 部 分 で , 現実 感 が な く な っ て いる よ 
う で す 。 ぼ くら が MSX, PC-9801, X68000 
を や っ て いた ころ と いう の は , コン ピュ ー 
タ の 性 能 自体 ショ ボ か っ た か ら か も し れ ま 
せん が , 商業 作品 を 見 て も 自分 の 手元 で や 
っ て る こと を も う 少 し が ん ば っ た ら 同 じ こ 
と で きそう だ っ た で は な いで すか 。 今 は 雲 
の 上 みた い に な っ て いま す よ ね 。 


佐藤 : 「 や つら は FE-1 に 乗っ て る けれ ども , 
お れ た ちゃ 原 チ ャ リ な ん だ よ , どう し た ら 
いい ん だ | に な っ て いま す よ ね 。 そ こ で ぱ 
くら は 「 原 チャ リ で いい ん だ よ , 校庭 で レ 
ー ス し よう ぜ ] と いう の を 作っ て あげ な い 
と いけ ませ ん 。 そ こ で 走り 方 を 覚え た 人 が , 
マシ ン を 乗り 換え て 250cc を 乗る よう に な っ 
て , さら に 腕 を 磨い て , 世界 GP に 出る よう 
に すれ ば いい の で す 。 そ うい う ス テッ プ が 
な いと いけ ませ ん 。 今 は そう いう の が まっ 
た く あ り ま せん 。 原 チャ リ が な く な り , 「 走 
れ な い 普 通 の 人 は , 走る こと を あき ら め て 
公共 交通 機関 を 使い まし ょ う 。 バ ス や タク 
シー が あり ます 」 と いう 時 代 で す 。 何 を い 
じ っ た ら 悪 い の か , た と えば 原 チ ャ リ に 手 
を 入れ て , リミッタ ー を は ず し て と か いう 
こと が 今 は で きま せん 。 そ れ で は 育た な い 
で すず よね 。 そこ で ,。 ラ イー ルド (ステ ー ジ ) 
を どう 作る か で す 。「 小 さい 規模 で ハデ じゃ 
な く て も , ち ゃ ん と OK な ステ ー ジ が ある よ 。 
いい ん だ よ , そん な の 。 昔 の 関数 電卓 の イ 
ン ベ ー ダ ー な ん て , 数 字 が 攻め て きた ん だ 
ぜ 。 あ りな ん だ よ , そん な の 。 砲台 は 「『Al 


「 持 ち 歩 ける も の に プロ グラ ミン グ で きる っ て こ 
と は , も の すご く お も し ろ い こと な ん で す 」 ( 園 


田 修 司 氏 ) 


で いい ん だ よ 。 だ め な ら 「『 土 』 っ て 書け , 
「 凸 】 と か ] と いえ る 場 を 提供 し た い の で す 。 
絵 が きれ いか どう か で 戦う ゲー ム も 確か に 
ある けれ ども , お も し ろ い か どう か と いう 
こと と は まっ た く 別 で す 。「 い いん だ よ , お 
な し けり や ゃ や 。 すご く ぐ な く で も | と いう ジラ 
ィ ー ル ド を 用 意 し て あげ な いと , プロ グラ 
ミン グ で は 遊べ な く な っ て いき ます 。 純粋 
に 子供 の 遊び を 考え る と , 紙切れ 1 枚 , ビン 
の 蓋 10 個 ある と 子供 は 遊び 始め ます 。 チ ー 
プ な も の を 組み 合わ せる こと で リッ チ な 遊 
び が 待っ て いる の を 子供 は 知っ て いる の で 
すず す 。 ご こ で いう リッ チ と いう の は 。 自分 の 
想像 力 で 生ま れる わけ で す が , そこ を 作れ 
る よう な ステ ー ジ が な いと それ ら が 生ま れ 
ませ ん 。「 チ ー プ だ けど どう 使う か は 君たち 
次 第 ] と いう の を 作っ て あげ な いと お も し 
ろく あり ませ ん 。 確か に 完全 に な く な っ て 
し まっ た わけ で は な く , X68000 や MSX で ま 
だ や っ て る 人 も いる し , も うち ょ っ と 高 商 
な ほう に いく と Linux と か FreeBSD な ど に な 
り ま す が , この 世界 は , わり と ホビ ー 色 が 
強い けど , 何 か 役 に 立つ こと を し よう と い 
う 風 潮 が あっ て , 役に立た な いこ と を する 
と バカ に され て し まい ます 。 役に立た な く 


て も いい の に , 何で みん な が 役 に 立 と うと 
する の で し ょ うか ? 遊ぶ と いう の は , 「 ど 
れ だ け 役 に 立た な いこ と を 思い つき で か っ 
こよ く や っ て の ける か 」 と いう こと で す 。 
木 登り が いち ば ん 得意 と いっ た よう な こと 
を , 役に立た な いけ ど カ ッ コ イイ と する の 
が 遊び の 世界 な の で , それ を 「 あ り | に し 
て あげ る の が ホビ ー と し て の プロ グラ ミン 
グ で が 。 


持ち 歩け る プロ グラ ム と その 可能 性 


園田 : 今 ま で の ホビ ー プ ログ ラミ ング は PC 
に 向かっ て や る も の な の で , その 結果 も PC 
で 見 る も の で し た 。WonderSwan だ と 外 に も 
っ て いけ る と いう の が 画 期 的 で す 。 た し か 
に ポケ コン と か あり まし た けど , ちゃ ん と 
ゲー ム 機 と し て 成立 する ハー ドウ ェ ア で , 
友達 と も デー タ と か が 交換 で きる と いう も 
の は , か つて な か っ た の で は な いで し ょ う 
か 2?2 ぽく ら が 昔 や っ て いた の だ と , PC で 
作る と それ は 同じ 機種 で な いと 動か な く て , 
だ っ た ら っ て 友達 を 家 に 呼ぶ と 「 あ ー つ ま 
ん ね ー」 と か 言わ れ て , 目 も 当て られ な い 。 
で も 学校 と か に も っ て 行け る と , 「 つ まん ね 
ー」 と 言わ れ た ら , 「 直 し て 明日 も っ て き て 
や る か ら , どこ が つま ん ね ー か いっ て みろ ] 
と か で きる わけ で す 。 も ち 歩 ける も の に プ 
選 グ ラミ シグ で きる っ で て こと と は ,。 も の すご 
く お も し ろ い こと な ん で す よ 。 


佐藤 : ば くら が , 中 高生 の と き に どう プロ 
グン シク 0 し で だ か と いう もこ ポケ コン 
や 関数 電卓 を 使っ て いた り し まし た が , そ 
れ は な ぜ か と いう と , お も に 経済 的 事情 で 
それ より 高い も の が 買え な か っ た せい も あ 
り ま す が , あの サイ ズ で プロ グラ ミン グ で 
きる こと が , 今 考え て も すご いこ と だ っ た 
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と 思い ます 。 実際 そう で し た が , 学校 で 授 
業 中 に , 先生 の 話 を 聞い て る フリ を し て , 
手元 で BASIC の プロ グラ ム を 組ん で いた わ 
け で すか ら 。「 手 元 で 操作 で きる 距離 感覚 で 
ある 」, 「 持 っ て 歩け る 」], 「 見 せら れる 」, 
「 渡 せる 」 と いう こと が 完結 し た 状態 で 行え 
る と いう こと は , 「 フ ロッ ピー ディ スク に 入 
れ て 渡せ ます 」 と いう こと と は 違い ます 。 
そん な の は 渡し て る うち に 入り ませ ん 。 フ 
ロッ ピー ディ スク を 指し て 「 こ れ が ゲー ム 
だ よ 」 と いわ れ て も 全然 リア ル で は あり ま 
せん 。 そ うい うと ころ か ら 変 えて いか な い 
と ダメ か な と 思い ます 。 そ うい う 意 味 で い 
うと 今 の WonderWitch と いう の は , まだ 173 
ぐら いま で し か 来 て いま せん 。WonderSwan 
の 上 で プロ グラ ミン グ が で きる よう に は ま 
だ な っ て いな いか ら で す 。 将来 的 に , 中 高 
生 が WonderWitch を 使っ て プロ グラ ミン グ 
する と いう こと は , WonderSwan 上 で 直接 プ 
ログ ラミ ング で き て , ケー ブル で 「 俺 の 作 
っ た ゲー ム で 遊ん で | と 言っ て 渡せ て , 「 お 
も しろい だ ろ , よし 対戦 し よう ぜ | と か に 
な り ま す 。「PC が な いと ダメ | な ん て の は 
も っ て の ほか で す 。WonderWitch を 作る と 
き に , PC 一 WonderWitch 間 通信 と 同じ こと 
を WonderWitch 同 士 で も で きる よう に し た 
の は , そう いう 視野 に 基づい て いま す 。 
WonderWitch に お ける 作品 の 流通 は , 今 は 
イン ター ネッ ト が 主流 で す が , 本 当 は , 非 
常に ロー カル な と ころ , 公園 や 学校 で 自分 
の 作っ た も の を あげ る , も ら う が 理想 で す 。 
そう いう こと を 考え る と , 初心 者 向け の プ 
ログ ラミ ング と いう の は 手元 で で きる 必要 
が あり ます 。 


長久 : WonderSwan 単 体 で プロ グラ ミン グ が 
行え る WonderWitch が 必要 で すね 。 
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園田 : 最初 の 構想 か ら , この 考え は あり ま 
陽 だ た 。 


佐藤 : 段階 し し て , そこ か ら や る の か と い 
うと それ は 違い ます 。 そ れ を や っ た 場合 に , 
現状 の WonderWitchn を お も し ろ い と 思っ て 
くれ て いる 人 が 買う か と いう と , 買っ て は 
くれ ませ ん 。 だ か ら , あと で 「 あ , こう い 
う の も 出 て きた ん だ 。 こ れ で 初心 者 も 入っ 
て くる ね 。 仲間 が 増え る か ら が ん ば ろう 」 
と いう 順番 で な いと ダメ で す 。 


園田 ・ な る べく た くさ ん の 人 に 使っ て ほし 
か っ た か ら , 時 間 が 経て ば ユー ザ が 増え て 
いく よう に し た か っ た と いう の も あり ます 。 


佐藤 : 現時 点 で は 初心 者 は , 初心 者 で な い 
人 の 助け を 得 て 暮 らし て くだ さい と いう 状 
況 で す 。 


園田 : 発売 し て か ら 何 か 月 か 経ち まし た が , 
そう いう 先 に 始め た 人 が が ん ば っ た 成果 を 
みて , あと か ら や る 人 が 歩き や すく な っ て 
き て いま す 。 ぼ く は ここ で ハマ リ ま し た み 
た いな 日 記 が 貴重 な 情報 を 提供 し て いま す 。 
そう いう 情報 が ユー ザ 側 か ら 出 て き て る の 
が , ぼく ら は うれ し いで す 。Windows な ど 
の プロ グラ ミン グ で は 分 厚い API 本 を まず 
買っ て くる の が あたり まえ で す が , 
WonderWitch で は , 自分 の し た こと な ど を 
公開 する コミ ュ ニ ティ が 助け て くれ ます 。 
情報 が 一 方 通行 で は な く て , キュ ー ト に も 
届 で の まず お いで な ん だ と わか る し 。 され 
か ら や る 人 た ちの た め に な っ て いて で , 非常 
に いい 感じ だ と 思っ て いま す 。 


長久 : こう し て 話 を 伺う と , ロー ド マ ッ プ 
的 に は けっ こう 長期 の 構想 な ん で すね 。 


佐藤 : マニ ュ ア ル に も 書き まし た が , 最終 
的 な ゴー ル は |「 ホ ビー プロ グラ ミン グ ワ ー 
ルド の 創出 」 な の で , すご く 長 い 話 で す 。 
た ぶん 10 年 ぐら いか か っ て 成果 が わか る よ 
うな 話 で す 。 ぼ くら だ け で 終わ る 話 で は な 
い の で す 。 実際 , WonderWitch を 発売 し て , 
や り た か っ た けど で き な か っ た メー カー の 
人 た ちか ら 「 悔 し いけ ど よ く や っ た , が ん 
ば れ 」| と いう 声 も あり ます 。 WonderWitch 
が 出 た こと で , や り た か っ た けど で き な か 
っ た 人 が や れる 可能 性 は 大 きく な っ た と 思 
う の で , ぜひ , や っ て ほし いで す 。 


長久 : ぼく は ゲー ム 関 連 の 開発 を ずっ と や 
っ て きた の で す が , 自分 自身 は ゲー ム を し 
ませ ん 。 な ぜ や ら な いか と いう と , ゲー ム 
と いう の は 頭 を 使う し , 理不尽 な こと が 起 
き て クソ っ て 思っ た り し ます けど ( 笑 ), そ 
れ が プロ グラ ミン グ し て る と き と ま っ た く 
同じ 感覚 だ か ら で す 。 ゲ ー ム で 「 あ る お じ 
いさ ん の 話 を 聞い て いな くっ て 先 に 進め な 
い | と いう の と , プロ グラ ム の ソー ス で 緩 
り を まち が っ て る の に 気がつか な いと いう 
の は 同じ こと で す 。 だから, 世の中 に プロ 
グラ ミン グ を し て いる 人 が た くさ ん いる の 
に 「 な ん で みん な つま ら な さそ うに 仕事 を 
し て いる の か な | と 思う 部 分 が あり ます 。 
ぼく の 職業 意識 が 低い の か も し れ ま せん が , 
いわ ば , プロ グラ マ な ん て も の は 遊ん で て 
お 金 を も あら えて いる わけ で す よ 。 でも, そ 
うじ ゃ な い 人 が 多 す ぎる よう に 思い ます 。 
な ぜ そ うな っ た の だ ろう と 考え る と , 「 今 私 
た ち が 使 わき され て いる コン ピュ ー タ その も 
の に 原因 が ある の か ]」, [現在 ホビ ー と し て 
の プロ グラ ミン グ が 人 欠落 し て いる か ら か ]」 
な ど と いろ いろ 考え て し まい ます ね 。 


「 プ ログ ラミ ング は ゲー ム を し て る と き と 同 じ 感 
覚 。 な ぜ み ん な つま ら な さそ うに し て いる の だ ろ 
う 」 (長久 勝 氏 ) 


WonderWitch の 使い みち 


園田 : WonderWitch っ て , どちら か と いう 
と ノスタルジック に 見 られ て し まっ て いま 
す 。 た し か に そう いう 面 も ある の で す が , 
昔 で き て いた こと が WonderWitch で で きる 
こと だ けが 利点 と いう の で は な く , も っ と 
アグ レッ シブ な も の だ と 思っ て いま す 。 今 , 
学会 で 発表 きれ て る よう な OS 研究 の トピ ッ 
ク が あり ます 。 そ うい う の は 一 般 に は すぐ 
に 提供 きれ ませ ん が , WonderWitch で は 研 
究 室 で 話し て いる こと が すでに 入っ て 使え 
る 状態 に し て あり ます 。 WonderWitch で ノ 
スタ ル ジ ッ ク に 普通 に プロ グラ ミン グ を す 
る の は 「 あ り 」 で す が , 今 ば くら が 提供 で 
きる こと を 全力 で 出し て いて , 昔 か ら 何 年 
も 経っ た ぶん の さま ざま な 要素 を 入れ て あ 
り ま す 。 ぜ ひそ の あたり も いじ っ て ほし い 
KG 
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佐藤 : WonderWitch 内 部 で は , ある 意味 で 
は 高度 な こと を 結構 や っ て いま す 。 商品 と 
し て の バラ ンス を 満た し な が ら も , コン ピ 
ュー タ サ イエ ンス か ら 見 て も 興味 深い も の 
に 仕上 が っ た と 思い ます 。 そ れ を 見 つけ て 
驚い て ほし いし , 気がつい た 人 が ぽく ら の 
予想 を 越え る 使い 方 を し て ほし いで す 。 そ 
うい う の を 待っ て いま す 。 


園田 : 逆 に ぼく ら を 驚かす 使い 方 を 待っ て 
いま す 。 


佐藤 : 今 ま で の と ころ , 普通 の 反応 が 普通 
に 出 て る 感じ で すね 。 ま だ , ぼく ら の 予測 
し て いた で き ご と の 簡 囲 内 な の で , ば くら 
と し て は , まだ も の 足り な いと ころ で す 。 


長久 : で も , その 問題 に 関し て は , 長期 的 
に 見 な いと ダメ で す よ ね 。 今 ま で の さま ざ 
まな ハー ドウ ェ ア の 使わ れ 方 を 見 て も , 最 
低 2 年 は 必要 で は な いで すか ? 


佐藤 : ぼ くら も そう 考え て いま し た が , 半 
年 ぐら いか か る だ ろう と 思っ て いた こと が , 
1 か 月 で らい で 出 て きま し た 。 そ こ で 2 年 と 
思っ て いた こと が 半年 で 起こ る か な と 思っ 
て いま す 。 こ の 2 か 月 に 起こ っ た で きこ と が 
想定 し て いた ペー ス よ り 非 常に 早かっ た の 
で , ちょ っ と 過剰 に 期待 し て る の か も し れ 
ませ ん ね 。 GPS を つなぐ の が 半年 ぐら いか 
と 思っ て た ら 1 か 月 で し た か ら ね 。 2, 3 日 で 
シュ ー テ ィ イング ぐら い は 出 固 き まし た 。 す 
ご いね みん な , 代わ り に OS 書い て ( 笑 )。 


キュ ー ト と いう 会 社 


長久 : これ は 裏話 に な っ ちゃ うか も 知れ ま 
せん が , バン ダイ は 今回 の WonderSwan の さき 
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ま ざ ま な 展開 を や っ て いく うえ で , ゲー ム 
制作 会 社 と 組む の で は な く , ビジ ネス ソフ 
トウ ェ ア や 組み 込み 制御 な ど を 手がけ て い 
る 開発 会 社 き ん と 組ん で いる ケー ス が 多い 
で す よ ね 。 バ ンダ イ が , WonderSwan の 展開 
を , ゲー ム の 枠 を 越え て 考え て いる の か な , 
と いう 点 で 興味 深い で すね 。 

キュ ー ト も ゲー ム な どの 仕事 を 頻 築 に さ 
れ て いる 会 社 じ や ゃ な いで す よ ね ? 


佐藤 : 全然 違い ます ね 。199979 に 設立 し て 
まだ 1 年 少し の 会 社 な の で , キュ ー ト と し て 
や っ て きた 仕事 を 年 表 の よう に 列挙 で きる 
わけ で は な いん で す 。 ど ちら か と いう と , 
最初 に 世に 形 と し て 出 た の が WonderWitch 
に な り ま すね 。 僕ら が ゲー ム 制 作 や り た い 
か と いう と , も ちろ ん 機会 が あっ て ネタ が 
あれ ば や る ん で す が , ゲー ム を 作っ た り シ 
ステ ム 開 発する の を 生業 と し て いる わけ で 
は あり ませ ん 。「 こ うい う の あ っ た ら 面 白い 
よね | を 実現 する た め の 素 材 , た と えば 
WonderSwan が あっ た 場合 に , どう 転がし た 
ら 化 ける の か , どう いう こと に 使っ た ら 素 
材 を 提供 し た 人 た ち が 思 っ て いな か っ た , 
面白 い 新 し い 姿 が 出 て くる の か , そう いう 
部 分 を 引き 出す た め に 道 を つけ た り , 人 を 
集め て きた り , コン セプト を 提示 し た りす 
る の が ぼく ら な ん で す 。 それ を 形 に し て い 
く 段 階 で , 自分 た ち が 実 際 に 手 を 動か し て 
開発 な どの 作業 を や る 必要 が あれ ば , で き 
る 思 ら は や り ま すま 。 人 に | こう し で は し ゆり 
と 頼む 時 間 が 惜しい と か いう 場合 は 自分 達 
で や っ ちゃ うけ れ ど も , 大 抵 の 場合 は , 誰 
か に 頼み ます 。 普段 は ば くら よ り そ れ を 
上 手 に で きる 人 が いる の で , まかせ ます ね 。 


園田 : な の で 今回 の WonderWitch に 関し て 
も , 実際 に 開発 する 部 分 は ぼく ら 自 身 が や 


ら な く て も よかっ た ん で す が , けっ こう 凝 
っ た シス テム に し た の で 「 こ うい う 凝 っ た 
こと を や っ て くだ さき さい] っ て , 他 の 方 に お 
願い する 時 間 が 非常 に ちっ た いな か っ た と 
ころ が あっ て , 今回 は た また ま 自 分 た ち で 
や れる こと だ っ た の で , 実装 まで や っ て い 
ます 。 で も , ぼく ら の 本 当 の 仕事 と いう の 
は , 方 向 付け を し て , こう いう ユー ザ に こ 
うい う 使 い 方 を し て も らい た い , 僕ら が 
「 あ る と 楽し いね | と 言っ て いた 製品 に な る 
よう に , 性 格付 け を し て いく と いう 部 分 な 
ん で す 。 


今後 の 展開 


長久 : 最後 に , 今後 の 展開 に つい て お 話 い 
た だ け ま すか ? 


佐藤 : スケ ジュ ー ル 化 さ きれ て は いま せん が , 
WonderSwan の 他 の 周辺 機器 と WonderWitch 
の 連携 も やり た いと いう 話 は あり ます 。 た 
と えば 「 ワ ンダ ー ゲ ー ト と 携帯 電話 を 使っ 
て WonderWitch の プロ グラ ム が 手 に 入る と 
幅 が 広がる ね ] と か で す 。 ス ケ ジ ュ ー ル も 
や る 人 も 未定 な の で す が , みん な が ほし い 
と 声 を あげ れ ば 動き 出す 可能 性 は 高い で す 
し , 俺 が や る と いう 人 が いる と , 「 じ ゃ あ , 
や っ て くだ さい 」| と 動き 出す か も し れ ま せ 
ん 。 今 の wonderWitch だ と , 誰か の 作っ た 
プロ グラ ム を 受け 取っ て 遊ぶ だ け の 人 に は , 
あま り よ い 環 境 で は な いと 思っ て いま す 。 
前 述 の 携帯 電話 の 利用 も そう で す が , 小学 
生 に は それ で も 敷居 が 高い か ら , た と えば 
子供 向け 雑誌 に プロ グラ ム が 載せ て ある と 
お も し ろ い か な と 思っ て いま す 。 と いっ て 
も , プロ グラ ムリ スト が 載っ て て PC 使っ て 
打ち 込む の で は 意味 が な く , ハー ドウ ェ ア 
的 な アシ スト が 必要 で す 。 バ ー コ ー ド 化 き 


れ た プロ グラ ム を WonderSwan 用 の バー コー 
ドリ ー ダ で 読み 取る と , WonderWitch に プ 
ログ ラム が 取り 込ま れる と か , そう いう イ 
ン フ ラ を 整備 で きれ ば 展開 が 広がり ます ね 。 


長久 : 本 日 は た い へ ん 長 時 間 に わ た り , あ 
り が と う ご ざ いま し た 。 


21 世 紀 の ホ ビー プロ グラ ミン グ < 坊 。 2Z5 


ss? 付録 CD-ROM に つい て 


付録 CD-ROM に は , 本 書 で と りあ げた プロ グラ ム の 全 ソ ー ス コー ド と , 以下 の ソフ 
トウ ェ ア / デ ー タ が 収録 され て いま す 。 詳 しく は , 付録 CD-ROM 内 の index.html を 手持 ち 
の ブラ ウザ で ご 覧 くだ さい 。 各 ソフ トウ ェ ア / デ ー タ の 使用 に あたっ て は , 必ず 添付 の 
マニ ュ ア ル を 参照 くだ さい 。 

ソー スコ ー ド を 利用 する と き は 。CD-ROM か ら ハ ー ド ディ スク に コピ ー し , すべ て 
の ファ イル の [プロパティ] 一 [全般 ] 一 [読み 取り 専用 ] の チェ ッ ク を 外し て くだ 
さい 。 


: 立 収録 ソフ トウ ェ ア 


* Lhasa ver.0.17 : lzh, .zip 形 式 の 書庫 を 解凍 

* TeraPad ver.0.61 : Windows 用 テキ スト エディ タ 

* 減色 教室 ver.0.8 : ゲー ム 制 作 を 対象 と し た 減色 ツー ル 

s サ ンプ ブリ ング 周波 数 変換 ver.1.11 : wave フ ァイル の サン プリ ング 周波 数 を 変換 

* ご た く Olassic 1.00/Win : Windows 版 クイ ズ ゲ ー ム 「 ご た く 」 

s ご た く 開 発 キ ッ ト : Perr に よる 「 ご た く 」 問題 ファ イル アク セス ライ ブラ リ 

* SPICE for Win32 ver.1.13b : 独自 の MML 形 式 で 作成 し た 楽譜 を 演奏 可能 な 楽譜 コン 
パイル エッ ジジ ン 

* Oherry ver. 1.4.3 release : MIDI フ ァイル を 編集 で きる MIDI シ ー ケ ン サ 

* Borland C++ Compiler 5.5.1 : Windows 用 C/C++ コ ン パ イラ 

* setbcc ver. 1.4 : BCC5.5.x イン スト ー ル 支援 ツー ル 


人 
2 疫 下 録 デー タ 


* ご た く 問 題 デ ー タ : 4 級 ア マチ ュ ア 無線 受験 編 - そ の 3 - 

・ ご た く 間 題 デ ー タ : 「 声 優 (女声 優 ONLY)」 ver.1.00b 
s ご た く 間 題 デ ー タ : 「 新 世紀 エヴァ ン ゲ リオ ン 」 四 号 版 

* MIDI デ ー タ (フリ ー 音 楽 素材 ) :Season 2000 
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IN 馬 也 乏 


人 記号 ・ ア ルフ ァ ベ ッ ト 

eee 1 
16 色 カラ ー パ ッ ク ト モー ド FPPPPPPPPTTTTTPYY 255 
16 色 カラ ー モ ー ドド 255, 261 
4 色 カ ラー モー INPPEEPEPPCPPCPPPPPETPPT 255, 256 
bgrm_cheekO om 72 
bgm_playO rr 72 
bios_extO ee 193 
bmpcrV.exe COCOCCTEKYSKYKKYYPYYYYYISSEKRTKEETRXYEEKS 51 
fo 還 CCCCCCCCPPCPCCPCCPRPTPPPPPPPYYPPPPPPEPPPPPFPPEPPEEPPPP 14 
ee 88 
CU 12 
dir OK タタ スミ SS タタ タタ ミミ ドス ミミ ミミ ミミ ミミ ミミ ミミ ミミ ミミ ミミ ミミ すす ミミ ミミ すす ミミ 14 
display_controlO で oren 34 
do 14 
DSMOO oi 242 
CUGECGCCCCCCCCPCPCPPPPYYKPPPPPPEPPPPPHEEPPCPPPPPEPPPD 95 
fose ii 89 
femt 【t DCCOOPPPPPLPCPTYYTYYY ャ ササ サミ すす ャ すそ で で すす で ドド すす ミミ と す 1 220 
findfrst() OSK タタ タタ タタ MGSKXSERRSSKEERRSXSREI 219 
findmextO er 290) 
font_get_dataO で 177 
font_set_colordata() COOT ス スス OPT YT イ スト] 35 
fopen() YKPIXTUOLATTY2OIL ス 1LL12700CLT TI フ (エイ スト トロロ 83 
fread() PTTPPP で TTY YY ドド て PP に PPP 83 
Freya Moruitor POOLCCOOUCKCCPPPLLCLLLLPLLLPDLDLLYYKKIYYI 15 
FeyaOS ii 293 
getentO 223 
GU 12 
Di 29 
lsoundhR err 66 
key_press_checkO で "orreeernereerrrrrrrn 78 
key_watO or 81 
kmmakeeereoo 98 
lcd_set_segmerts (0) CCOKCYCYYEYSYYYYYYECYIYYSESYTYT コ 174 
LSIC-86 for WonderWitech で oooereerrenrnrrrrr 3 
Magical Book で ee 3 
Magical CD-ROM oo 4 
me 98 
Mt 16 
MIDI…… ド ドド ドド 240 
mkfent.exe で ーー ドド 102 
mmaDO の TE 88, 90 
MM 70 
MS-DOS プ ロン ププ ト tie em 10 
nument イ Or 223 
open_sound 1O で ror 68 


palette_set_eolorO で で "7 36 
ram0 領 域 だ PC を で で に FPP で ON 86 
rom0 領 ID 本 CCCCECCFPPPFPPPPYPPPPPYPPPEEER 84 
rtc_get_datetime 0) PC に に ただ た に ヤヤ トド ヤ 1 109 
screen_set_char() KC TK エア て 江 バル た れ PP に た た ルコ 4 ウ 
sereen_set_scrolO で oooeerererrrrrerrreen 43 
Set UECSSOKYYKEYYYYEEEEKESESYKYYSYEYKYEEKEYRYSYYEEEPEPEEK を ささ さ : 14 
setupbat rr の 
smmecnVe 和 Eee 244 
sndenydee oo 73 
soundl ドド ドド ドド 67 
sound_elose(O で err 69 
sound_initO の 57 
sournd_open (0) POPCCPPLLCCCCCLPLLLECCCOCOCCCCCCLLKKKCC 69 
sound_set_chanmnel() 人 eiSiei6.6281639.S8iGIe が giGf remiel 57 
Soumd_set_noise 0 CC を OCTPCKCYOLT て OK 62 
sound_set_output 0) PPCPCCCCOLCCPCKYCCDCLLK て LIL 58 
sound_set_pitchO ぐ で eereorerererrrrrrrrrrr 60 
sound_set_sweep 0) TFC: な OPC KILL イロ 64 
sound_set_volumeO で OO 59 
SOurd_set_Wwave 0) ii516808i978088ie 2IEiSI8Igieie07a7A18IS1aiaiGieie 58 
sounddef.h DU YY て で YYY ス PITKTT ル スン と と に LT 56 
Sounddrv imit () POPCCCLPTPYYTIYPPPYYYYYYYYYYYYFTPP 69 
sounddrv_release 0 PH を ICPOPCC ぶ TK TYPYTDCX り 70 
Ni (610ECCCEECCCCCCHUUUCCCTLTCCTTYTUUUUYKELCYYSKYTD 241 
sprite_set_char( ) CCCYYXYTPPLEPLLCLPLLLKPCLLLKK 36 
sprite_set_location 0 DAYPXCRYYCTPCTOCNKY 2 も 36 
sprite_set_ran ge 0 PE2KCKXX た 2LKTCCE ル ヤヤ ルト PC 95 
TeraPAD oo 8 
TramsMagic.exe 591682767G2 え 82992 16 
TurboO Oo 101 
voice_check() 1)855255 86578186 福 ekalelaISiGI81aie [な 69 
voiece_playO で OTTO 69 
wave ブ アァ イ リリ CCCCCCCCPPPPPPPCPTYYYFPPPPPPEPPPTYYP 66 
WonderSwanColor で で に に に に に に ーー 254 
WonderWitch サ ポー ト Web サ イト … の ii… 5 
wwc_font_set_colordata(O) で" の 258 
WWC _get hardarch () YY に C て YYYYLTE 着 58 
WWC _palette_set_color() PPPLYYKYYKY 5598 
wwc_set_color_mode 0) EKEYPPYPTFYPCF て て で いと 259 
ア 行 

アッ プ グ ダレ ーー ドド oe 23 
アド ベン チャ ー ゲ ダーム に に に に に 180 
ああ ii 106 
イン ジ ケ ー タ 表示 を 制御 する 関数 CPPPCEFPP 174 
イン ダイ レク トラ イブ ラリ … で eeei… 69 


ォ オク ター ブツ ド ドド 140 
音 を スウ ィ ー プ きせ て 噂 ら す … の の mm… 63 
音 を 鳴ら す 和 28197879 (95815 の は:0(8ieeieeieiae 55 
音楽 を 鳴ら す あき Sie)5)8' ぐ 2 る ia る 6:9lS2Z1e:a0S.31911918 あ 8 ま 70 
音源 CT ル を ぶた TK に CXKX て YOLLS て スス スス 1 54 
音源 ドラ イ バ ドド ドド one 65 
音源 ドラ イ バ 関 連 の 関数 ……………… 69, 72 
音声 サン プリ ング クー ooeoererrererrrrerrnnrr 65 
音声 を 鳴ら す EPCYTTPPTPLPLCYLCCLLLLL ス と 65 
今 力行 

開発 環境 の ア ッ プ デー トド ト ーー ドド m 5 
画像 デー タ の 作成 OPCCCPPOCCKCLLLLLLLDLLLLL) 30 
画面 構 大 oro 28 
画面 表示 設定 の 関数 CCCYTTYYYTTYYYTYYTP 34, 177 
カラ ー エ モー ド 関 連 の 関数 PPPCCCLLKXYL 258, 263 
カラ ー ラ イブ ラリ 0 oe 254 
関数 へ の ポイ レ /2CCPTCPPPPPCCPCOXETTY メ マエ エエ イナ 152 
キー 関連 の 関数 PPPPPPPPLPTEYYPCLLYLLLLL 78, 81 
キー 入力 OOCPXOYXIDCKIOPPLCLX ス ス KTTOCLILXOKIOCYHOPKT 76 
送 ポ ー ラ ンド 記 寺 eeeoeoeoeooererererrnrl 196 
キャ ラク タテ ー ブ ビル ニー ・… ドド oooeooeeenmm 33 
キャ ラク タテ ー ブ ル か ら 画 像 デー タ を 取得 する …177 
キャ ラク タテ ー ブ ル の 大 き さ 。… ぐ ee の 46 
後記 196 
ZS PCOPPPTTTY PPUPYLLLLLLCCLLLLKYYPDCLCLPLLLLD 216 
コマ ンド プロ ンプ トー で ooooeoeoeeoemm 10 
コン テン シア ター 217 
サ 行 

再帰 的 下向き 構文 解析 YY て PPTTYY LT 197 
サウ ンド 関連 の 関数 … の it 57, 62, 64 
じゃ ん けん PPOCPPTTYYYTPLLLYYPPCLLCLCPLDCLI ス KEI) 116 
シュ ー テ ィング ダグ が ダーム に に 148 
衝突 判定 PODPTYYPTPYPPPPPPPYTYPPPPPPPLEPPPPPTYYYYYYY 152 
スウ ィ イー プ 機 能 POOLY XY 54, 63 
レン り に ン 20COCPCPCPCPEETPTYSYEPYPEPPPEEPECETETD 39 
スク リ 5 IEEECEECCCETEEEKECTYYCTYYKLHYYCKTL 185 
スタローン ルー 直 ET 42 
レン を 人 ツ ポン 2RCCCEPCDLPCPETPPRCPPPYTETYSYTECPEE 196 
スプ ライ トト oe 28 
ガウ イ ト 関 連 の 関数 CPPPPLYYPPPPYPLEYTTYY: 34 
スプ ライ トマ 表示 eeeereeoerernernnr 30 
絶対 音感 FT て さて て イイ で し て イル 140 


INDEX 
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信行 

縦 置き 用 フォ ント デー タ eeeeernroin 175 
遅延 分 岐 PT PPLLLLLLI『 エ テト と さと しい 193 
ディ レク トリ ーー ドー ドド 9 
テキ スト エディ ター ドド の 8 
テキ スト 表示 関連 の 関数 ………………… 48 
敵 の 出現 シー ケン スス oo 151 
テン プレ ー ICOCECEPHCECCPCEECCEYTTYKKTLIKY 人 KT 155 
透過 色 生ま で に に CC ここ CPP て KCLU て KKLK LDL て 34, 44 
統合 開発 環境 PPKPYYKCTYYK と LC ウル 
トー 197 
時 計 か ら 値 を 得る 円 CC よ たせ に LTEYT て セア に し た と ん た TL 107 
ナ 行 

日 時 を 返す 関数 PCOCEY KKT た た PRD に ZXTKKTTYTEYT つ 109 
ノイ ズ 音 を 鳴 すす 61 
ノイ ズ 機 能 teioeooeoooeerren 54, 61 
久 八 行 

彰 太 iT 29 
背景 関連 の 関数 CCPPPLCKKTCCLTPPPCLLLLLD 42, 43 
背景 の スクロール <・ooeoeoeerererereerrer 42 
背景 の 表示 61976Ieiai876i9 和 Iaig の Gi の LGSiGIsIE る 88Ie:SiS2eIe る 398 
バッ チ フ ァイル ー で に で だ に eoee に emー 14, 96 
パレ 33, 44 
半音 PPPTTPYTTPCPLLLLLLYKYYLLLKCLLLLLYYL 140 
半角 カタ カナ oereereoeoeeerrrrerrrrrr 296 
反射 ゲー スム oe 131 
の は |U EPCPCSTPYTCPCCCYTECITEPCECEETHEEECHHXKAY 155 
ファ イル 関連 の 関数 ……………… 88, 90, 223 
ファ イル シス ナム 人 oe 82 
フォ ー マ ッ ト 定 義 フ ァイル DOCCCCCYXTPYYYPTPD 30 
レン EPCCEEPPPTYSYTTTYYTPPTYYPCYCCEKYPCYYTCKYX の 29 
プロ グラ ム を 強制 終了 する ooooi… 1983 
ボ イ ス 機 能 PPTYY KTCLYY CC 54, 65 
て 行 
ママ 226 
みん な で 親指 を 立て る 遊び YY 122 
メイ ン ル ー の 人 COLDSSTCPPCTYYCEPPTYTCEET は で YYI 151 
文字 の 表示 は PPPFPPPPPPTYFETPPPYPTPPCPPYPYPPYYTEPD 46 
ラ 行 ・ ワ 行 

乱数 で と すす TKYOLLLLKK く KEY エエ すす ILTTTT TYPT ア KK 107 
リー 91 
割り ii 65 


* 付録 CD-ROM の 使用 に 関す る 注意 事項 

本 CD-ROM お よび その 収録 デー タ の 使用 は , 以下 の 注意 事項 に 従っ て 使用 する こと を 条件 と し て 許諾 
され る も の と し ます 。 ユ ー ザ ー は , 本 CD-ROM を 使用 する こと に より , 「 使 用 に 関す る 注意 事項 | の 内 
容 に 同意 し た も の と みな され ます 。 


・ 本 CD-ROM の 収録 デー タ に 関す る 著作 権 , お よび その 他 の すべ て の 権利 は , 各 デ ー タ の 開発 元 な どの 
著作 権 者 に 帰属 し ます 。 

・ 本 CD-ROM ま た は 収録 デー タ に 関し て , ソフ トバ ンク パブ リッ シン グ 株 式 会 社 (以下 ,「 当 社 ] と い 
う ) は , いか な る 保証 も 行い ませ ん 。 

・ 本 CD-ROM の 使用 に 起因 する ユー ザー の あら ゆる 損害 に 関し , 当社 は 一 切 の 責任 を 負い ませ ん 。 

・ 本 CD-ROM お よび その 収録 デー タ に 関し , その 使用 方 法 も し く は 非 動 作 時 の 質問 , サポ ー ト な どの 問 
い 合 わせ に つい て , 当社 は 回 答 の 義務 を 負わ な いこ と と し ます 。 


@ 本 書 の 内 容 に 関す る ご 質問 に つい て 
本 書 の 内 容 に 関す る ご 質問 は , 封書 また は FAX で お 送り くだ さい 。 
封書 の 場合 は , 返信 用 封筒 と 切手 を 同封 の うえ , 
〒107-0052 東京 都 港 区 赤坂 4-13-13 
ソフ トバ ンク パブ リッ シン グ 株 式 会 社 第 1 書籍 編集 部 
ワン ダー スワ ン ゲ ー ム プロ グラ ミン グ 係 
まで お 願い いた し ます 。 
FAX の 場合 は , 書籍 名 , 返信 FAX 番号 を 明記 の うえ , FAX 番号 03(5549)1144 に お 送り くだ さ 
い 。 ま た , 本 書 の 内 容 以 外 の ご 質問 , お よび 電話 で の ご 質問 に は 応じ か ね ます の で ご 了承 くだ 
さい 。 


ワン ダー スワ ン ゲ ー ム プロ グラ ミン グ 
ワン ダー ウィ ッ チ で ゲー ム を 作ろ う ! 
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